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ABSTRACT 


This thesis discusses the design and implementation of 
an intelligent computer-aided instruction system for Naval 
ship recognition. The system uses artificial-intelligence 
techniques to provide an interactive tutoring environment. 
The student’s abilities for ship recognition are tested 
using randomly selected ¢side-view photos. The student’s 
response iS compared to the correct ship in an expert 
module. If the response iS incorrect the features of the 
correct ship are compared with those of the incorrect ship 
mOomtocmulate a hypothesis concerning the student’s miscon- 
ceptions. Tutoring strategies are chosen based on this 
comparison. The system provides a recognition test, a 
Summary review and an individual photo review. A review of 
recognition features for each ship is supplied during the 
recognition test. A final Summary is generated at the end 


of testing. 


al ab se 


Ti. 


Ss ee 


dy ge 


TABLE OF CONTENTS 


INTRODUCTION 2... 20c ccc 0 0 0 0 oo eo oe oe ete tents atte i 
A. SHIP RECOGNITION ...... « « « ¢ « « euemeeeeente ents Z 
B. METHODOLOGY .....2..606020652 65 5 6 os 6 6 oe) SepessIt een Z 
C. PREVIEW 2... 60 6 5 2 eo 0s ow oe 0 oo oeiienenenn ntsc its nants S 
OVERVIEW OF COMPUTER-AIDED INSTRUCTIOCN ee 5 
A. BACKGROUND ....... 2. « « © oe eco eneeiren et ents tat aaa 5 
B. COMPUTER-AIDED INSTRUCTION ~. 2. 5 
Cx ICAI SYSTEMS (06 Sos 3 ke os oo ete eee ne a 6 
Hee STRUCTURE. 2... 06 wes 0 0 6 5 se mneIS (ate omee nts anne 7 

@a. Expert Module .... 023652. 3 eee a 

b. Tutor Module 2... 2.0. sessmee ecole) cient enn " 

c. Student Model ..... 2.88)... 5 

2. ApplicatLOns 2... << . «ss cusses] oie 10 
OVERVIEW OF SHIP RECOGNITION ..... 2.05 02 pee 13 
A. PURPOSE. 2 oo. fee 665 2 2 ee 5 oie eee eee 13 
B. PROCEDURES 2 oan 6 ..% pe wee ee) oe ieee cure nrtc teen 14 
oF TRAINING PROGRAMS 4... .. 5 2s e 2 cee ee ee 14 
D. ASSUMPTIONS 9. sss 6 ose ese ee eerie tre tsetse tearm rr 16 
SHIP RECOGNITION: AN ICAI APPROACH ee 1 
A. SYSTEM ORGANIZATION © oo 2 ci gecere etree reine terre Ng 
B. BXPERT MODULE 2.2.5.2 2 2s « a cememeiene teite nee mcnt i enennnn I 
1. Knowledge Base .......:.56 6 4 steno ie 

2. Inference Engine .... «2... 20 


lv 


Ce ONO ISIC IS, 200.0 0) IS EO) a rn ee Zw 

Io SECON OND IORUIE G6 co 8 ce Ze 

E. pS) 8) ele A Or to oie MNase. 6 «s ccvslis oie els @ sl s6 * se 0 0 0 os 26 

Bi LP EERO OU) E SCE PACS aie aca k 6 Ope ee, ee Zo 
The ec GFONON ER bcc 26 Gs co 28 

ey, epee oe A lavevc| calvaie | © SAAN Seema a eyo rr ne 

We U8, SIMU AEISE® 25 25 PeRRE NES. 5-26 5 Sy COR Sere ele eae Pe Sz 
wi. CCIE TENG SS) ICON RE IS 2 ear ea 33 
Pio @ YC Ie 1b J Wch CaN ISS 755 5 RP eg en a eee en 63 

SS TEI IO) NS 5. 5 2) ee ae a Ss 

Ce. Rie OME NOEs) she sENHANCHEMENTS 0.4652. .6%5 600066 34 

eee emer ORMONSGTRATION 4.42... .5. 000200 cc eee ewe ee wee ce eee 36 
Moe Tecmpe = User S&S MANUAN (. si. cw ee ee ee wwe we ee ee ee ee oul 
eerie CeO ORC CODR i.e 6 ni ee eh ww hee Sew 8 ee ws 55 
EI tei: gig oye, poetic) s)s 4) ees 6 oe @ er o0e 06 0% eS Slee ewe 88 
WANE ABNIECS IES 36! OMI ©) EE SIE am a 89 





I. INTRODUCTION 


Computer-assisted instruction systems in use today can 
provide a sophisticated learning experience for students, 
in some cases rivaling the instruction provided by human 
instructors. One advantage of computer-based training is 
the one-on-one teaching available for students. In the 
majority of today’s classrooms there is little opportunity 
for students to receive the direct attention that is possi- 
ble with computer-based instruction. 

Although computerized instruction has been available to 
one degree or another for many years, it has not been 
utilized as extensively as it could have been. One reason 
for this is the cost of computer hardware and software. 
Systems in use in the past used expensive machines to 
BPeevide tutoring services that could be provided through 
books and other types of less expensive media. Computer 
tutoring systems needed to develop further in order for the 
benefits to justify the cost. 

In recent years a great deal of research has been done 
in achieving "thinking" systems. These new "thinking" 
systems provide a mechanism for computer-based instruction 
that is much closer to the teaching possible from human 


instructors. This thesis will investigate the possible use 


of a "thinking" computer system for Eraingagemm eee 


personnel in ship recognition. 


A. SHIP RECOGNITION 

Ship recognition is the ability to differentiate be- 
tween different classes of ships. Weapons systems, which 
are eaSily recognizable, can be used to visually determine 
the general mission of an observed ship from a side view. 
Once a ship is identified by class, intelligence informa- 
tion can provide further data concerning the armament and 
capabilities of the contact. Positive identification om 
unfriendly ships, before they come within attack range of 
our own ships, provide a strong incentive for up-to-date 
intelligence [Ref. 1]. 

Currently ship recognition is taught using drill meer 
ods. Intelligence officers with knowledge of each ship 
class drill officers and crewmen using slides of both ship 
photos, line drawings and silhouettes. There are also 
flash cards and books available for individual study. 
Recently, computer programs for use on microcomputers have 
been introduced into military commands. These programs 
provide another method of drilling the student on ship 


features, while not requiring an instructor on hand. 


B. METHODOLOGY 
We have programmed a computer-based ship recognition 


tutor from information provided by military Precequaese 


Sees and Other recognition books [Refs. 2,3,4]. A ship 
feature description and a menu of ship names are provided 
to the user. The user is required to select the name of 
the correct ship or ask for help. Help is provided in the 
form of the correct answer along with a list of the identi- 
fying features of the ship in question. If the user 
selects a ship name the ship recognition tutor will compare 
the user’s answer with that of an expert ship-identifica- 
tion module. Based on this comparison the user receives 
immediate results in the form of a positive response, with 
a review of key features, or a negative response, with a 
feature-by-feature review of the differences between the 
correct response and the user’s response. 

Artificial intelligence (AI) techniques implemented in 
the Prolog programming language were utilized in the design 
Peeeme Ship recognition tutor. This type of computer 
program is referred to as an intelligent computer-aided 
instruction (ICAI) system or an intelligent tutoring system 


mers) . 


C. PREVIEW 

Chapter II provides an overview of the use of computers 
in instruction, with a review of computer-aided instruction 
feel) and intelligent computer-aided instruction (ICAI). 
@maprer III provides an overview of ship recognition and 


current training techniques. Chapter IV discusses the 


design and implementation of our ship recognition tutor. 
Chapter V discusses the performance of the ship recognition 
tutor. Chapter VI is the conclusion and discusses the 
benefits and limitations of the ship recognition tutor. 
Appendix A provides a representative user session. 

Appendix B contains a User manual for the program, with 
information for use and modifications. Appendix C contains 


the Prolog source code for the ship recognition tutor. 


II. OVERVIEW OF COMPUTER-AIDED INSTRUCTION 


A. BACKGROUND 

Computers were first used for teaching in the late 
1950’s. Computers have gone on to be used in all levels of 
education. Medical students use computers to practice 
Sieanosis and prescription on patients simulated by comput- 
er programs. Engineering students use computers to assist 
in problem solving. Computers are also used for education- 
al purposes outside schools. Children learn spelling and 
arithmetic and high school students practice for college 
entrance examinations using educational software available 
to the general public [Ref. 5]. 

Computer-aided instruction (CAI) is the name given the 
use of computers in education. Intelligent computer-aided 
Memeeruction (ICAI) refers to instructional systems utiliz- 
mie@eartaficial intelligence technology. The acronym CAI 
will be used to refer to the more traditional approaches to 


SeupuLerized instruction. 


B. COMPUTER-AIDED INSTRUCTION 

Peacitaomal CAN programs tend to be statically 
organized structures that contain both the domain and 
pedagogical knowledge of the expert. This is similar to 


the idea that books contain the knowledge of their authors. 


There is no expectation that a book can dynamically access 
the knowledge it contains to answer unexpected questions, 
or that the book can add new knowledge to its current 
contents [Ref. 6]. CAI programs translate the teacher’s 
decisions into a program, all the possible circumstances 
that might require a decision are considered, and code to 
deal with each of these possibilities is included in the 
program. 

Early research into CAI tried to build systems which 
contained course material in sequential lessons. These 
early programs were either electronic "page-turners", which 
printed prepared text, or drill-and-practice monitors, 
which asked students to answer questions and then responded 
using prestored answers and comments. Educational uses of 
computers have expanded to include free-style use of the 
machine, where the student learns problem solving by pro- 
gramming, as well as the use of games and simulations as 


IHSEruCcE vonal” Cools. 


x ECAT  SyroTteaMs 

The idea of research into instructional systems Ut iii 
ing artificial intelligence is to capture the knowledge 
that experts use to compose an instructional interaction. 
The goal 1s to produce a system that is capable of autono- 
mous reasoning on the basis of only primitive principles 


Reasoning from the expertise of experts rather than looking 


up their decisions, creates the possibility of new deci- 
sions that may not have been anticipated by the experts 
iret. 6]. 
1. Structure 

ICAI systems consist of three main components: the 
problem-solving expertise, which is the knowledge to ke 
imparted; the tutoring strategies, which indicate how the 
system will teach the student; and the student model, which 
indicates what the student knows or does not know [Ref. 7]. 
These components are respectively referred to as the expert 
module, the tutor module and the student model. An inter- 
face module is also needed to provide a smooth, clear 
presentation to the user. Figure 2.1 shows the components 
of an ICAI system. 

a. Expert Module 

The expert module serves two functions. It 

acts as a source of the knowledge to be tested and a means 
of evaluating the student’s responses [Ref. 6]. The expert 
module for tutors of technical skills should be drawn from 
the knowledge of several experts in the field to be taught, 
in order to prevent blind spots in the knowledge base 
Weer. 8). 

b. Tutor Module 

The tutor module selects problems to be solved, 


monitors performance and provides assistance. This module 


ICA] SYSTEW 


EXPERT STUDENT TUTOR 
MODULE MODEL MODULE 
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Figure 2.1 ICAI System Components 


requires knowledge in addition to knowledge of the subject 
being taught: knowledge of teaching skills. 

Most ICAI research into tutor modules has 
explored diagnostic modeling. The program evaluates the 
Peucent’ Ss understanding of the topic by interpreting his 
response. Feedback is then provided, to allow the student 
to learn skills he has used incorrectly or not at all. 
Recently there has been an attempt to decide just the right 
thing to say that will allow the student to realize his 
error and to use this knowledge to switch to a better 
method. This classical method, the Socratic method, re- 
quires repetitive questions that guide the student along a 
specific line of reasoning [Ref. 7]. 

A second teaching strategy is called coaching. 
This method does not follow a strict lesson plan, but 
encourages learning through activities such as computer 
games. The primary aim of the student is enjoyment of the 
game, with learning as a by-product. The computer "coach" 
observes the progress of the game and offers suggestions or 
new information as required. The coaching method requires 
little interruption and allows the student to proceed 
relatively on his own. [Ref. 7] 

c. Student Model 

The student model provides a representation of 

what the student does and does not know. This information 


is generally obtained by comparing the student’s response 


to that of the expert. Once a comparison Nas Deeneinaeae, 
the information is used to determine possible misconcep- 
tions and to decide the best tutoring strategy to correct 
the misconception. 

2. Applications 

SCHOLAR iS a mixed-initiative computer-based tutor- 
ing system that tutors about facts concerning sseuen 
American geography. Both the student and the system can 
initiate conversations by asking questions. This program 
waS a pioneering effort in the development of programs that 
could handle unanticipated student questions and react 
appropriately [Ref. 7]. 

WHY, which tutors students in the causes of rain- 
fall, was developed in response to a need for systems that 
could deal with subject matter that is not purely factual. 
Student errors could involve not only forgotten facts but 
also misunderstandings as to why processes work the way 
they do [Ref. 7]. 

The SOPHIE tutoring system allows the student to 
learn by trying out his ideas rather than by Gdirece wan 
Struction. A model of problem-solving techniques is 
contained in the system domain along with heuristics for 
answering student questions and handling misconceptions. 
These features allow a one-to-one interaction between the 


student and a computer "expert", who helps the stucent ween. 
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up with his own ideas. The problem-solving skills taught 
in SOPHIE are taught in the context of an electronics 
ialooracery [Ref. 7]. 

(ao waseenes finst FCAT system Co utilize a coach—- 
ing strategy. This method involves a computer game that 
mie student plays, while a "coach" observes in the back- 
@eound, occasionally offering suggestions. A coaching 
strategy does not interrupt the student so often that it 
becomes intrusive. This would destroy the fun of playing 
the game. The idea of the WEST system is to provide drill- 
and-practice in arithmetic to elementary school children. 
WUMPUS is another coaching system which requires knowledge 
of logic, probability, decision theory and geometry to 
track down and destroy the Wumpus while avoiding various 
meapos [Ref. 7]. 

GUIDON is a system that teaches diagnostic problem- 
solving in the medical field. The system utilizes the 
MYCIN consultation system as the expert domain. GUIDON’s 
teaching knowledge is totally separate from the MYCIN 
subject domain. MYCIN provides infectious-disease rules 
that constitute the topic to be discussed and a ee for 
evaluating student responses. The system provides a mixed- 
initiative dialogue that goes beyond merely responding to 
the student’s last response or repetitive questioning 


Peet. /). 


Jol 


GUIDON’s case method of presentation closely 
resembles the presentation method we used in the ship 
recognition tutor. The student is required to concentrate 
on specific cases or, in our SyStem, Spec? i weme secre 
GUIDON allows the student to ask questions to gather 
information, whereas our ship recognition tutor provides 
information through a menu-based dialogue. In both systems 
the tutorial system only intervenes when the student asks 
for help or when his responses are suboptimal [Ref. 6]. 

STEAMER 1S a system used to train engineers who 
will operate large ships. The training is designed to help 
the student form a mental model of the steam propulsion 
plant and understand related engineering principles. 
STEAMER iS important in the research into ICAI systems 
Since it stimulated interest in the development of object- 


oriented graphic simulations in training [Ref. 7]. 
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III. OVERVIEW OF SHIP RECOGNITION 


Numerous changes have occurred in naval weaponry in the 
past decade, resulting in warships that are hard to distin- 
guish. Knowledge of identifiable features and weapon 
systems is required to differentiate between different 
classes of warships and to determine a ship’s general 
miesion. Positive identification of unfriendly ships or 
aircraft before they reach attack range can mean the dif- 


ference between life and death in a wartime situation. 


A. PURPOSE 

Training of a ship’s crewmen, intelligence personnel 
and pilots in the identification of ship classes and weap- 
ons systems 1S required to provide up-to-date intelligence 
information. Air reconnaissance, both visual and 
Peerograpnic, plays an important role in the intelligence- 
gathering mission. Aircraft personnel must not only be 
able to recognize unfriendly ships, but must also be able 
to identify weapons systems on board. Information acquired 
through air reconnaissance is rapidly passed to analysts on 
Mme Ground or on board ship. Once the ship is identified 
by class, the operational intelligence personnel can brief 
the commander on the capabilities of the contact. 


fee. 1,10) 
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B. PROCEDURES 

Naval ship recognition, as taught to Naval personnel, 
follows two basic ideas. A fast, overall impression of the 
ship provides operational identification. Then there is a 
feature-by-feature analysis, requiring prolonged observa- 
tion. This observation can be either direct or through 
study of reconnaissance photos. Information that can help 
in the identification of ships includes the geographical 
location of the ship, knowledge of which ships are known to 
Cruise in the region and intelligence information gathered 
prior to the sighting. Features of interest to 
intelligence personnel are: (1) armament such as missile 
launchers, guns and ASW weapons; (2) armor on sides decks, 
turrets, towers and superstructures; (3) electronic equip- 


ment; and (4) navigational equipment. [Ret= 110 


C. TRAINING PROGRAMS 

There are several aids for training military personnel 
in ship recognition. Generally ship recognition is ine@iaee 
ed in training given by intelligence personnel. Sessions, 
utilizing slides of ship photos along with etter sei. 
drawings or silhouettes, are provided to allow personnel to 
become familiar with various ships. During these sessions 
the instructor points out key identifying features and 
Suggests memory aids to help the student remember the ship 


along with its features. The intelligence officer will 
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sco prov.de Classes to review ships that may be encoun- 
mMened in Specific areas of deployment. 

Supplemental resources available for learning ship 
eecognition include flash cards, with line drawings or 
silhouettes, and books such as Jane’s Fighting Ships. 
There are CAI programs as well. The programs provide a 
Silhouette of the ship, allowing the student to answer a 
multiple-choice question regarding the identity of the 
ship. The student is provided with a positive or negative 
response and a review of the features of the ship, similar 
to the flash cards mentioned earlier. 

Classroom training in ship recognition provides a 
knowledgeable instructor to supply the student with com- 
parison feedback for incorrect answers. For example the 
instructor can point out features that are present on the 
Student’s answer and show that they are not present on the 
ship in question. He can also show slides of an incorrect 
Ship the student selected for an immediate visual compari- 
son. But this is not often done due to the limited number 
of instructors available and the time required for individ- 
Meaeeinstruction. An ICAI program can provide this direct 
comparison capability and provide one-on-one instruction 


for everyone. 


ir 


D. ASSUMPTIONS 
In writing the ship recognition tutor we assume that 

the student has some knowledge of ship features and weapon 
systems. The system requires that photos, line drawings or 
Silhouettes be provided for the training syllabus. Appen- 
dix B provides information that will allow modifications to 
the system to include additional ships. The ships current- 
ly included in the system are listed along with the source 


code in Appendix C. 
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IV. SHIP RECOGNITION: AN ICAI APPROACH 


A. SYSTEM ORGANIZATION 

The ship recognition tutor was designed and implemented 
on an IBM-compatible microcomputer using the Arity Prolog 
programming language. It requires 512K of RAM memory. The 
following files are needed: tdriver.ari, tmenu.ari, com- 
parer.aril, ShIiDS. ard  eCeCrenato.aripeutLilities.ari, 
summary.exe and getstime.exe. Figure 4.1 illustrates the 
relationships between the program files. When the tutor is 
operated on a hard-drive system, the time to identify each 
ship 1S approximately one minute. The operating time is 
greatly dependent on the expertise of the student, since 
more time is required when incorrect responses are given. 


The operating time may increase slightly when uSing a 


floppy-drive system. 


ime Innis program was started as a class project 
Meee otsll at the Naval Postgraduate School, 
Monterey, California. 
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Figure 4.1 Ship Recognition Tutor Structural Model 
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B. EXPERT MODULE 
1. Knowledge Base 
The rules which identify ships are contained in the 
file shipsl.ari. The information is contained ina series 
of predicates, that include a list of the identifying 


features of each ship. The format of this predicate 


iS: 
rule(ship id(<’ ship-name’ >), [<feature-fact-list>]) 


The items in <feature-fact-list> have arguments that are 
brief descriptions of the features. This descriptive 
information is included to differentiate two features in 
the same general category with different overall appear- 
ances. Some examples of ship identification rules are 


displayed in Figure 4.2. 


1D, 


rule(ship 1d(’ Krestamiieca 
[mast 2(’two masts’), 
foremast (’large obelisk type foremast’), 
aftermast (’smaller pyramid aftermast’), 
radar (’ radar atop maee a. 
top sail (’TOP SAME@cadeam sy, 
helo(’raised helo pad aft’), 
ssm(’canted launchers below bridge wings’)]). 


rule(ship id(’Kiev CVHG’), 
[fight deck (’angled flight deck’), 
Superstructure(’tiered superstructure’), 
other features(’looks like cruiser tnepror t= seen 


rule (ship id(’ Kirov Celie, 
[mast 1(’large mack amidship’), 
radar ("atop Mack oy 
top sail(TOP SAIL vadar ay 
superstructure (’superstructure amidship with 


large mack J, 
forecastle(’long, slightly stepped, shane 


raked bow) 0me 


Figure 4.2 Sample Ship [d@entgiicat tenmmles 


2. Inference Engine 


The ship recognition system uses comparison tech- 
niques as its inference engine. The student’s response is 


compared with the known correct response obtained using the 


following predicate: 
ship _photo_ comb (<photo-number>, <ship-name>) 


If the student’s response is correct, the student is noti- 


fied appropriately; if not, the system goes on to compare 


the correct response rule with the incorrect response rule. 
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This comparison is done in the file comparer.ari utilizing 
the predicate compare. The format for the comparison is as 


mel lows: 


compare (<correct_answer>,<student_answer>, 

<Features not _present>,<Features missed>, 

<Features details diff>).1ls2 
<Features not _present> is bound to a list of features that 
were present in the incorrect answer, but not in the cor- 
rect answer. <Features_missed>, is bound to a list of the 
features contained in the correct ship’s description but 
Mmetein the description of the ship that the student chose. 
Finally, the predicate <Features details diff> contains a 
list of the features in the student’s answer that differ 
only in the detailed descriptions (arguments) of the recog- 


meee. on features. 


C. KNOWLEDGE ACQUISITION 

The domain expertise for the ship recognition tutor was 
obtained from Department of Defense Recognition guides and 
meom OLher recognition books [Refs. 2,3,4]. Although there 
was no direct consultation with experts, the knowledge 
obtained from published sources was deemed adequate for the 
development of this prototype tutor. An operational ship 


recognition tutor should be modified as applicable by the 
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instructors involved in the teaching syllabus. Intermaewe 
concerning modifications to this system asecemtaumme ama 
Appendix B. 

In reference guides for ship recognition, the features 
are listed along with a photo and a silhouette or a line 
drawing of the ship in question. In this tutoring system 
however, the features are listed for the Student only ina 
final review of the ship. For incorrect answers the tutor 
addresses ship features individually and requires acknowl- 


edgement from the student. 


D. TUTOR MODULE 

Our tutor module is implemented in tdriver.ari. Tutor 
modules differentiate ICAI systems from CAI systems in that 
ICAI systems separate the tutoring strategies from the 
expert module. The tutor module is responsible for over- 
seeing the student’s progress and selecting the appropriate 
information to best instruct the student. The tutoring 
rules used in the ship recognition tutor are handled ini- 
tially by the predicate check_answer. The student 1S ashes 
to choose the correct ship from a menu of choices. The 
possible responses are: 


- help. The tutor will give the correct answer and a 
review of the ship’s features. 


- quit. The tutor will quit, giving a Summary eo: a2 
session. 


ZZ 


eoerecemrecoolse.s fie tutor will give an affirmative 
response along with a review of the ship’s name and 
freacuLces- 


- incorrect response. The tutor will give a negative 
response and will begin tutoring the student. 


PemageneroscHe 1m deciding tutor strategies for this 
sort of system lies in the attempt to determine where the 
student went wrong. The ship recognition system tries to 
determine the student’s misconceptions using the compare 
predicate to compare the student’s ship to the correct 
ship. Once the features that appear to have caused the 
student difficulty are found, the next issue is which 
category of misconceptions is most important, or more 
likely to have caused the incorrect response. 

We decided that the student was more likely to have 
problems with features in the same general category, fea- 
tures that were common to both the correct response and the 
incorrect response, but possessed different descriptive 
arguments. An example is shown in Figures 4.3 and 4.4. 

The ships are the Kresta I CG and the Kresta II CG, which 
are very Similar. For example, both ships have SSM 
launchers under the bridge wings, but on the Kresta I the 
launchers are horizontal and on the Kresta II the launchers 
are canted. The compare predicate would return this infor- 
MeaetOon in the Feature details diff argument. Since a 
misconception of this type is very likely to occur, the 


mmreent 1S £Lirst directed to these features. 


ZS 
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Figure 4.3 Kresta I CG 
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Figure 4.4 Kresta II CG 
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After any such student errors have been tutored, the 
student is next instructed on any features that are present 
ime the cerrect Ship, but not on the ship that he chose as 
the answer. These features are contained in Features- 
missed. Finally, the student is tutored on any 
Features not present, features that are present in the ship 
Memchose but not in the correct ship. 

The student is given three chances to choose the cor- 
rect ship, his initial choice and two more. The second 
chance occurs following the entire tutoring sequence de- 
scribed above, and the third chance after another pass 
through the sequence. Each time he makes an incorrect 
choice the tutoring strategy involves the latest choice. 
After three chances, the system tells the student the 
correct answer and provides him with the identifying fea- 
tures of the correct ship. 

When the student responds with an incorrect answer, the 
meogram first checks the length of time it took him to 
respond. The tutor utilizes the information the student 
entered concerning his experience level to determine a 
minimum length of time the student should view a photo 
prior to making a ship name selection. This is only rele- 
vant when the student’s response 1S incorrect. It was 
arbitrarily determined that a Beginner should review an 
Pieamiliar Ship at least 30 seconds before attempting to 


Make an identification, an Intermediate user ten seconds, 


Zz 


and no minimum time for an Expert user. Incorrect 
responses given prior to these times were considered 
"guesses". 

Another important issue is that student misconceptions, 
or errors, fall into two major categories, perceptual and 
conceptual. When a Student appears to see features Chae 
are not on the ship or miss features which are there, the 
error is perceptual; conceptual errors are knowledge mis- 
conceptions. When the student misidentifies a ship, our 
system first checks for perceptual errors by asking the 
Student if the features identified by the comparison be- 
tween the two ships are present or not. If the student 
Still does not see a feature that is present on the ship, 
the system will ask him to look more closely and tell him 
that the feature is there. If the student thinks a feature 
is present that is not actually there, the system will tell 
the student that the feature 1s present on the incorrect 


ship but not on the Correcessnip. 


E. STUDENT MODEL 

The student model represents the student’s knowledge of 
the problem, as perceived by the tutoring system. This 
representation is based on the student’s responses to the 
questions asked by the system. The student model is only 


used at the conclusion of each user session, when the 
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system provides the student with a summary of his responses 
(Figure 4.5). This summary includes: 


- names and number of ships identified on the first 
look 


- names and number of ships identified on the second 
look 


- names and number of ships identified on the third 
look 


- names of ships that the student did not identify 


- number of ships when the student appeared to 
guess the answer 


There is no “grade" given; the information is provided to 


encourage the student to review areas of difficulty. 


moumaGaentified 8 ship(s) on the first try. 
The ships(s) were: 


Mang Hu Il FF Jiangdong FF Kresta I CG 
Kresta II CG Caen, ti/ iti) Pris Kaman PTG 
Kara CG Kiev CVHG 


memeladentified 0 ship(s) on the second try. 
The ships(s) were: 


You identified 0 ship(s) on the third try. 
The ships(s) were: 


You did not identify the following ship(s): 
Jiang Hu II FF 


You appeared to guess on the first look at 0 ship(s). 


Figure 4.5 Sample Summary Screen 


Ze 


F. USER INTERFACE 
iL. - a2npuc 
A menu-based approach was used for user input to 
the tutor. The information contained in the menus is 
contained primarily in the file tdescrip.ari. The menu 


2 Determina- 


formats are contained in the file tmenu.arl. 
tion of the choice of menus to be used is made as part of 
the tutoring strategy in tdriver.ari. 

The ship recognition tutor initially displ. 
information concerning the tutoring system, the opt vous 
available and reminders specific to the Prolog programming 
language. The user iS next prompted for his experience 
level. The choices are Beginner, Intermediate and Expert; 
the system will use this information to determine if the 
user has responded to a query for the ship name with a 


guess. Following this information, the first menu appears 


(Figure 4.6) allowing the user to make one of four choices. 


im: Menus are modifications of menu formats used in 
Ref. 12. 
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Ship Recognition Main Menu 
1.Ship Recognition Test 
2.Review a specific photo 
3.View a summary 
4.Quit 


Eiieer l., eyo. er 4. 


Figure 4.6 Main Menu 


If the user chooses the first option the test 
begins. The user is presented with a menu of ships from 
which to choose (Figure 4.7) and is provided with a book of 
photos or line drawings to identify. The system asks the 
student to look at randomly chosen photos. Following each 
incorrect answer the user is presented with a review of the 
Significant features. The questions are in either a yes/no 
format (Figure 4.8) or a list of feature descriptions 


(Figure 4.9). 


Za, 


Your ship choices are: 


1.Kresta I CG 2.Kresta II CG 

3. Ji1langdeng Eh 4.Jiang Hu I FF 
SoJiang Hu Lies 6.Godavari FF 
72Grisha 1/11/1l eee 8.Kaman PTG 
9.Kara CG 10.Kiev CVHG 
Ll.Karov CGN 12.Krivak I FFG 
13.Krivak II FFG 14.Krivak III WPGF 


Select the name that matches the photo or "q" to quit. 


Figure 4.7 Sample List of Ships 


Is the foremast with the following description: 
large obelisk type foremast 
present on photo number 3. 


Enter “y." “for Ves Or eine ror sie 


Figure 4.8 Sample Yes/No Question 


Select the best description of the onboard helo structures. 
Penangar:.and pad arr 
2.helo pad aft 
3.raised helo pad aft 


Make your selection. 


Figure 4.9 Sample List of Feature Descriptions 


If the user selects the second system option, in 


the tutor main menu, to review specific photos, he is asked 
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the number of the photo he wishes to review. The user then 
sees the key features for the ship he selected. 

The third system option shows the user a summary of 
mec wharest ship recognition test. Section E of this chap- 
ter describes the user summary. 

2. Error Checking 

The system will check for input that does not 
conform to acceptable standards. For example, if there are 
fifteen ship choices in the menu, the system will not allow 
the user to select "16" as the answer. The user will be 
asked to select an answer within the correct range of 


e7oices. 


Spl 


V. Results 


Our ship recognition tutor was tested on a database of 20 
Soviet ships, with the capability to add more ships as 
required. Test runs were completed by five different 
intermediate and beginning students, for a total of 25 
runs. The system requires 50K of disk space and 368K of 
RAM memory not counting the Prolog interpreter. The system 
response time to incorrect student answers 1s one to three 
seconds. Tutoring time ranges from five seconds for cor- 
rect answers to four minutes for incorrect responses. 
Tutoring times vary based on the individual user. 

Demonstrations of the ship recognition tutor are in 
Appendix A. Instructions as to how to add more ship data 


to the knowledge base is in Appendix B. 
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VI. CONCLUSION 


A. ACHIEVEMENTS 

We have shown that an ICAI system for tutoring ship 
meeeCMtsion 1S possible. "ihis fully computerized system 
provides many of the benefits of an instructor. It is a 
portable program that will run on any IBM-compatible micro- 
Pemputer. The source code iS easily adaptable to teach 
most ships. Portability is the main weakness of the GUIDON 
tutor discussed in Chapter II. An ICAI system allows the 
instructor more flexibility than flash card methods in 
providing the student a useful learning environment. The 
combination of these two features makes it a worthwhile 


Me@mition to any fleet training program. 


B. LIMITATIONS 

iecwsmtp—-recognition tutor uses visual features such as 
weaponry and structural characteristics referenced in 
several ship recognition texts. These features, while 
mipeteant to the overall identification of ships, may not 
MBeswthe features required for quick recognition. Most 
experts in this field recognize ships based on one or two 
main features. The inclusion of "extra" features may only 


mee tO the new student’s confusion. 


oS 


A second possible limitation concerns the program’s 
level of instruction. This level may be most applicabvewme 
intermediate students. More experienced students may find 
the method of tutoring too basic and therefore irritating. 
Beginning students will not know how to proceed when shown 
a ship. Nonetheless, the recognition test can still pro- 


vide a good idea of any student’s level of knowledge. 


C. RECOMMENDED SYSTEM ENHANCEMENTS 

There are several areas that can be enhanced to improve 
the ship-recognition tutor. The first is to provide more 
detail on the features used to identify the ships, as well 
as memory mnemonics to help the student remember key fea- 
tures. A means of specifying the locations of these 
features, perhaps using screen graphics, would also be 
helpful. 

Background information is another area for improvement. 
The ease of identifying ships in the real world can be 
greatly improved when information is included concerning 
(1) geographical location of the Sighting, (Z) (ervey seme 
Ship sightings in the area and (3) intelligence data ob- 
tained concerning political activities at the time of 
Sight imc. 

A third addition to the system might be to provideweme 
ship silhouettes as graphics on the computer screen. A 


drawback to this addition would be to make the overall 
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system less portable. Not all microcomputers are capable 
BiepEodmMecinG Graphics that are clear enough to allow the 
user to discern fine details. 

Another addition would be to increase the knowledge 
base. This system was developed as a prototype, and there- 
fore contains a limited number of ships. The knowledge 
base is limited to Soviet warships. Additional ships from 
other countries along with merchant ships would provide a 
better balance for the student. 

There are some improvements that can be made to the 
instructional strategies. The menus could be presented in 
a hidden multiple choice method, where the student is given 
a multiple choice menu one item at a time. Another im- 
provement would be to consider previous sessions when 
preparing the tutoring session. This would provide the 
Student with more practice on the ships which cause him the 
mest GCifficulty. 

Some interface considerations might be to provide more 
flexible entry methods. The use of a mouse would be easier 
than keyboard entry for menu selections. Creating natural 


language input capability would also be helpful. 
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APPENDIX A - DEMONSTRATION 
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Ship recognition training is required for many Naval person- 
nel. It is taught by Intelligence personnel using slides, 
milash Cards and other drill methods. 


This ship recognition tutor is designed to help you improve 
Mour profLiciency in ship recognition. You will be provided 
Meena list of ships from which to identify the photo speci- 
fied. The method of tutoring is based on your level of 
experience. The system also provides you with a means of 
viewing a summary of your last session. You may also review 
specific photos. 


PROLOG REMINDER: 
Pees ENTRIES MUST BE FOLLOWED BY A PERIOD (".") 


Strike a key when ready. . 


KEKE KK KK KKK KEK KEKE KKK KKKKKK Next Screen KKEKEKKKKKKKKEKEKEKEKKEKEKKEK EK 


Level of experience 


1. Beginner 
Z2. Intermediate 
3.8 BXpere 


maveer |.,2., or 3.: 2. 
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Ship Recognition Main Menu 


Ship recognition test 
Review a specific photo 
View a summary 

Oude 


m WN FR 


Momeer |.,2.,3. or 4.1. 


Spi 
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Please look at photo number 11 
Your ship choices are 


im Kresta sl eG 2.Kresta Tiggee 
od banogdondnas 4.Jiang Hu I FF 
eros seep mshbl IL 10 (31g 6.Godavari FF 
7.Grisha 1/7 1i/ilieeae 8.Kaman PTG 
9.Kara CG 10.Kiev CVHG 
veer oy CGN 12.Krivak 2epae 
13.Krivak II FFG 14.Krivak III WPGF 
[5 2Siava 16.Kashin DDG 
17.Sovremennyy DDG 18.Yurka MSF 
19.Kynda CG 20.Udaloy DDG 


Select the name that matches the photo,"q" to quit or “h" 
for ine lps io. 


That answer is incorrect. 
The Krivak II FFG is not the conurect siuiee 
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Select the best description of the gun mounts. 
Sung le-mounic 
2.forward of superstructure, aft of deckhouse 
-gunmounts flat and square 
-gunmounts rounded with fence between 
.enclosed gunmount on bow 
.two enclosed gun mounts, fore and aft 
-Ewo enclosed GUM MoumMEes Eorvward 
.spheroid enclosed gun mount forward and aft 


O~ TIA OI & W 


Make your selection: 5. 

The gun description you chose: 
enclosed gunmount on bow 

1s not present on a Krivak II FFG, 

but it is present on the correct ship. 
Type any letter to continue. c. 


KKK KKEKKEKEKEKKKK KKK KKK KX Nese: Screen KEKE KKK KK KKK KKK KAKAK KKK 


Is the helo with the following description: 
hangar and pad aft 
present on photo number 11. 


Enter “y." for yes OY “Me foOmeie ss. 
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KEKKK KKK KK KEKE KKK KK KKK K KKH Next Sieroen KAEKKKR KEK KKK KEK KERR KKK 


imtene ssm with the following description: 
4 SSM launchers on bow 

mreesent On photo number ll. 

Mmieers y. EOr yeS Or “N.” fE£or no. n. 


The ssm is present on the Krivak II FFG, but not on the 
menrect ship. 


Type any letter to continue. c. 
KKK KEK KKK KKK KEKE KKK KKK KKK Next Screen KEKE K KEKE KKK KKK KKK KEK KEK 
You have identified the following features: 


fact (gun(’enclosed gunmount on bow’)). 
fact (nelo(’hangar and pad aft’)). 


fey again to identify photo number 11 
Remember, it is not the Krivak II FFG 
Your ship choices are: 


1.Kresta I CG 2 Kees tae l “CG 
3.Jiangdong FF 4.Jiang Hu I FF 
Sevulang Hu ITI FE 6.Godavari FF 
MeGrisna T/PI/III FFL 8.Kaman PTG 
9.Kara CG 10.Kiev CVHG 
fm .Kirovy CGN VW. Kravak IP EEG 
13.Krivak II FFG 14.Krivak III WPGF 
15.Slava 6. Kashi sp bG 
17.Sovremennyy DDG 18.Yurka MSF 
ie Kynda CG 20, Udaloy 2DDG 


petect the name that matches the photo,"q" to quit or "h" 
mee help. 14. 


KKK KKKK KEKE KEKE KEKE KERR KE KKK KEK Next Sener nM TKR RR KR KK KK KKK KR KA KEK KK 


Very good! You have chosen the correct ship. 


Photo number 11 is the Krivak III WPGF 
Here is a reminder of the key identifying features. 


mast 2(two masts) 

masts (latticed) 

Superstructure (superstructure with masts) 
eeaek (Short, wide with lip on trailing edge) 
gun(enclosed gunmount on bow) 

helo(hangar and pad aft) 


ays 


Type any letter to contimuc ime. 
KEKE K KEKE KKK KKK KKK KK KKK KKK N@xt@soecreen KKEKKKKKKKKKKKKKKKK EK 


Please look at photo number 20 
Your ship choices are: 


i= hcestan 1.6G 2.Kresta II CG 

Ss. vaenqqo0ngurr 4,.Jiang Hu I FF 
52 dlang oh) ite 6.Godavari FF 
7.Grisha I/1i/i1i Bee 8.Kaman PTG 
9.Kara CG 10.Kiev CVHG 
11.Kirov CGN 12.Krivak IeeEe 
Loektniavak J abe 14.Krivak III WPGF 
15.Slava 16.Kashin DDG 
17.Sovremennyy DDG 162 Yurka Meu 
19.Kynda CG 20.Udaloy DDG 


Select the name that matches the photo,"q" to quit or "h" 
fOr We das ' os 


KK KK KK KK KK KR KKK Ke Ke Kane Re Next Sereen KKKKKKKKKKKK KKK KK EK Ke 
Very good! You have chosen the correct ship. 

Photo number 20 is the Slava 

Here is a reminder of the key identifying features. 
mast 2(two masts) 

foremast (large pyramid mast structure) 

aftermast (smaller radar mast) 

stack(twin stacks amidship) 

radar(Top Dome on after deckhouse) 

helo(hangar and pad aft) 

missiles(16 SS-N-12 Sandbox missilesspaired forwana 


Typewany Letter Lo ~Cont inuec ec - 


40 


KKK KKK KKK KKK KKK KKK KKK KK Next Screen KERR KKK KKK KAKA KK KKK KKK 


Please look at photo number 9 
four Ship choices are: 


ienReesta 1 CG 2.Kresta II CG 
Sev iang@eng FE 4.Jiang Hu I FF 

Sp omangG Hull Fr 6.Godavari FF 
weorerecma I/LT/ITi Pel 8.Kaman PTG 
9.Kara CG 10.Kiev CVHG 
11.Kirov CGN Wehriver a  fiG 
Meehrivak II FFG 14.Krivak III WPGF 
#5.Slava 16.Kashin DDG 
17.Sovremennyy DDG 18.Yurka MSF 
mo Kynda CG 20.Udaloy DDG 


Serece the name that matches the photo,"q" to quit or "h" 
memehnelp. 7. 


KEKE KKEKKKKKE KKK KKK K KKK KKK K Nest Screen KAKA KKK KKK KKK KK KKK KKK 
Very good! You have chosen the correct ship. 

Photo number 9 is the Grisha I/II/III FFL 

Here iS a reminder of the key identifying features. 

mast 1(heavy pylon mast with latticed extensions) 
Weer 1 loc(on top of the bridge) 

Stack(located aft) 

rocket launcher(RBU launcher on a raised mid section) 

Hee any letter to continue. c. 


KKK KKKKKKKKKEKKKA KKK KKK KK KK Next Sereen KAEKKKRKRKKKKKAKKKKKK KK KEK 


Please look at photo number 6 
Your ship choices are: 


1.Kresta I CG 2envestanil CG 
3.Jiangdong FF 4.Jiang Hu I FF 
S.-Jiang Hu II FF 6.Godavari FF 
feeGrisha I/IL/III FFL 8.Kaman PTG 
9.Kara CG 10.Kiev CVHG 

im. Kirov CGN 12.Krivak I FFG 
13.Krivak II FFG 14.Krivak III WPGF 
15.Slava 16.Kashin DDG 
17.Sovremennyy DDG 18.Yurka MSF 
moeKynda CG 20.Udaloy DDG 


4l 


Select the name that matches the photo, "q" "to quitter. a. 
fOr Nelo. 4. 


That answer iS incorrect. 
The Jiang Hu I FF is not the correct ship. 


KKEKKKKRK KKK KKK KKK KKK KKK KE Next SC¢reen KKKKK KKK KKK KKK KKK KKK 


Is the mast_1 with the following deserip eam 
latticed tripod mace 
present on photo number 6. 


Enter "y." for yesS or "0." fomenenmsy. 


KRKKKKKKKEKKKKK RK KKK KK EK Next Screen KAEKKKKKKK KKK KAKA KKK KK 


Is the stack with the following descriptor, : 
large, square 
present on photo number 6. 


Enter “y." f6r yes Or gues eter Me. 74 


FOF TORR RRR IRR RE RKO, KR Ree Next <2 Treen KAEKKKKKKKKKKRKKR KKK KA KKK 


Is the ssm with the following description: 
twin launchers forward and aft of stack 
present on photo number 6. 


Bnter “y. -£60% Ves ©F = shot nG ey 


KEKE RKKR RAK KKR KKK KEKE KKK KX Nes Sarno ecn KAKKKKKKKKKKKKKKKKK Ree 


Is the ssm 2 with the following description: 
a SSM 1 launcher forward 

present on photo number 6. 

Enter “y.” £Or yeS Crt eho r Ne. on 


KK KK KR KKK KKK KE KK Re eS Next Screen KREKKKKKKKKKKKKA KKK KKK KK 


Is the bridge with the following description: 
forward placed 
present on photo number 6. 


Enter “y." f£0r VeS “OF fe te eee 
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KKK K KKK KKK KKK KKK KKK KKK KKK Next Screen ReERKKKK KAKA KK KKK KK KKK KX 


mente helo with the following description: 
helo pad aft 
present on photo number 6. 


Mitieer Vv." £Or yes Or Uns" for no. y. 


KKK K KK KKK KKK KKK KKK KKK KKK Next Seareen KEK KK KKK KKK KKK KKK KK KKK 


You have identified the following features: 


Sieei(mast 1(’latticed tripod mast’)). 

fact (stack (’large, square’)). 

mee (ssm(’twin launchers forward and aft of stack’)). 
Patee(ssm 2(’a SSM 1 launcher forward’)). 

Bact (bridge (’ forward placed’)). 

meet (helo (’ helo pad aft’)). 


Tey again to identify photo number 6 
Remember, it is not the Jiang Hu I FF 
Mour Ship choices are: 


ilnekresta I CG 2.Kresta II CG 
Seodangdong FE Wed strsyelep, Jel Jl sia 
seorang Hu Ll FE 6.Godavari FF 
Pmietroiast/il/lil FEL 8.Kaman PTG 
9.Kara CG 10.Kiev CVHG 
mie. Kirov CGN le hrevak LEG 
Mmo.Krivak II FFG 14.Krivak III WPGF 
m> .Silava 16.Kashin DDG 
17.Sovremennyy DDG 18.Yurka MSF 
19.Kynda CG 20.Udaloy DDG 


wetect the name that matches the photo,"q" to quit or "h" 
meme nelp. 5. 


KEKEKKKKK KKK KKK KKK KKK KKK KK Next Screen KEKKKKKEK KK KKK KKK KKK KKK 


Very good! You have chosen the correct ship. 


maocOo number 6 is the Jiang Hu II FF 
Here is a reminder of the key identifying features. 


faet i (latticed tripod mast) 

Stack(large, square) 

ssm(twin launchers forward and aft of stack) 
Sssm 2(a SSM 1 launcher forward) 

bridge (forward placed) 

helo(helo pad aft) 


Type any letter to continue. c. 
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Kk kK KR KKK KKK KKK A AKA KKAEKAKKK NExt Screen **KKKKKKKKKKKKKKKKKKKK 


Please look at photo number 7 
Your ship choices are: 


1.Kresta I CG 2.Kresta II CG 
3.Jiangdong FF 4.Jiang Hu I FF 
Seana. Hither nes 6.Godavari FF 
7.Grisha 1/21/11! se 8.Kaman PTG 
9.Kara CG 10.Kiev CVHG 
lie Kiscov -CGN 12.Krivak  iebEe 
134KYivak It FRC 14.Krivak III WPGF 
TSS vara 16.Kashin DDG 
17.Sovremennyy DDG 18.Yurka MSF 
19.Kynda CG 20.Udaloy DDG 


Select the name that matches the photo,”"q" to quit ore ae 
fOr lle lp. 


That answer iS incorrect. 
The Kara CG 1S9mnOEMEneweorrect oShip. 


RKKK KEKE KEKE KEK KEK RK KX KS Next Screen KKK KKKKKKA KKK KKK KKK KKK 


Select the best description of the mast. 

1.heavy pylon mast with latticed extensions 
 latticed £ripedemess: 
.large radome atop mast 
.large pyramid mast, Supports TOP SAIL radar 
.large mack amidship with TOP SAIL radar 
-Single oil derrick mast 
wlatemeed 


J ov ON B&B WN 


Make your selection: 3. 

The mast |. deseript1on ou chose. 
large radome atop mast 

1s not present on a Kara CG, 

but it iS present on the ceOrvecersiao. 


Type any Letter to: Contanuerwc. 
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K KKK KKK KEK KKK KKK KK KEK KRKKEKKE Next Screen KKK KKK KK KK KKK KKK K KKK 


Peileece mene best descripetom, of the SSM launchers(s). 
1.4 SSM launchers forward of the superstructure 

.twin launchers forward and aft of stack 

.located between superstructure and deckhouse 

.4 SSM launchers located on bow 

.canted launchers below bridge wings 

horizontal launchers under bridge wings 

two (HOT DOG PACKS), 1 forward, 1 aft 


Io OB WN 


Make your selection: 3. 


The ssm description you chose: 

located between superstructure and deckhouse 
is not present on a Kara CG, 

but it is present on the correct ship. 


Type any letter to continue. c. 


KKK KKK KKK KKK KEKE KKK KEK Next Screen KEKE KKK KKK KKK KKK 


Is the gun with the following description: 
forward of superstructure 
present on photo number 7. 


Pmieer "yy." for yes or "n.” for no. n. 


The gun is present in the photo. Look carefully to identify 
it. This feature is not present on a Kara CG 


iype any letter to continue. c. 


KEKE KRK KKK KKK KKK KE KKK KKK Next Screen MRR RKRRKR RRR ARK KKK KK KK EX 


meene gun 2 with the following description: 
aft of deckhouse 
present on photo number 7. 


Meer VY. for yes or “n.”™ for no. y. 


RK KKKKKKKKKAKKKKKKKEKKKSE Next Screen KARR KR KKK KK RK KKK KKK KKK 


Is the superstructure with the following description: 
enclosed, streamlined with separated deckhouse 
present on photo number 7. 


Mimeece Y.' for yes or "n.” for no. y. 
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KKK KK KKK KKK KKK KKKEKKKKKEKK Next SCreen KK RKKKKKKKKKKKKKKKKKKK 


Is the stack with the following descripered 
ILeies(e, 9 Sell sce 
present on photo number 7. 


Enter "“y." for yeS or "nN. Som ier 


The stack is present on the Kara CG, but not on the correct 
ship. 


Type any letter to continue. c. 


KKEKKKKK KKK KKK KKK KE KKK KEKE KK Next Screen KEKE KKK KKK KE KKK KKK KKKEEE 


Is the helo with the following description: 
helo pad aft 
present on photo number 7. 


Enter -"y." for yes or “Ns. sfor. ne. 


The helo is present on the Kara CG, but not on the correct 
Ships 
Type any letter to continue. c. 


ERK KKK KR CRE RRR KR RK A KR REE Next Screen KEKE KKK KK KKK KKK KKKEKEKEKEHK 


You have identified the following features: 


fact (mast 1( large radememarop snack 3m 

fact (ssm(’ located between superstructure and deckhouse’)). 
fact (gun (’ forward Of “SuperSsErvcrure.) 

fact(gun 2(° att of (Gecksouse )))- 

fact (superstructure (’enclosed, streamlined with separated 
deckhouse’)). 


Try again to identify photo numbers 
Remember, it 1s not the Kara CG 
Your shaw: Choices sare. 


1.Kresta I CG 2.Kresta II CG 
3.0 Llanodoene.: F 4.Jiang Hu I FF 
5. J bane tie tae 6.Godavari FF 
7.,Gritshead/ i i7 Pil eee 8.Kaman PTG 
9.Kara CG 10.Kiev CVHG 
11.Kirov GEN 12.Krivak I FFG 
1L32Kraivak LI See 14.Krivak III WPGF 
15.Slava 16.Kashin DDG 
17.Sovremennyy DDG 18.Yurkawiien 
19.Kynda CG 20.Udaloy DDG 
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Se -ceeemecmmane that matches the photo, "q" to quit or "h" 
mor help. 8. 


KEKKKK KKK KKK KKKKKKK KKK Next Screen Kaa RR RK KK KK KKK KK KS x 


Very good! You have chosen the correct ship. 


Photo number 7 is the Kaman PTG 
Here is a reminder of the key identifying features. 


mast l(large radome etop mast) 

gun(forward of superstructure) 

gun 2(aft of deckhouse) 

ssm(located between superstructure and deckhouse) 
Superstructure (enclosed, streamlined with separated deck- 
house) 


ivee any letter to continue. c. 


KEKKKK KKK KKK KKK KK KKK Next Screen RRRKRARKKKAAREKREKEKK KEK XK 


Please look at photo number 8 

meur Ship choices are: 
1.Kresta I CG 2.Kresta II CG 
3.Jiangdong FF 4,.Jiang Hu I FF 
eeod@ang Hu Il FF 6.Godavari FF 
7 8 

9 


fPerrsha t/T1/11I FFL .Kaman PTG 

.Kara CG 10.Kiev CVHG 
il.Kirov CGN 12.Krivak I FFG 
im ,KArivak II FFG 74. Krivak III WPGF 
15.Slava 16.Kashin DDG 
17.Sovremennyy DDG ie. .Uurka Mor 
19.Kynda CG 20.Udaloy DDG 


Sa ece the name that matches the photo,"q" to quit or "h" 
for help. h. 


mememm KKK KKK KKK KKKKKKKKKK KK Next SeCreen KKRE KK KARR KR KKK KK KARR KKK 
The name of the correct ship is Kara CG 

Mimo iS a list of the descriptive features of a Kara CG: 
Meet !{large pyramid mast, Supports TOP SAIL radar) 

Stack (large, square) 


helo(helo pad aft) 
ssm(canted launchers below bridge wings) 


4’ 


Identify each feature in the photo. 
Remember the name of the ship is Kara CG 


Type any letter key to continue. c. 
KKEKK KK KKK KKK KK KKK KKK KKK KH Next Screen KEKKKKKKKKKKKKKKK K Kee 


Please look at photo number 1 
Your ship choices are: 


1.Kresta I CG 2.Kresta II CG 
SJ range@eng hn 4.Jiang Hu I FF 

5 Jang. Hue lie 6.Godavari FF 
72GYrausna f/f ae 8.Kaman PTG 
9.Kara CG 10.Kiev CVHG 
LieKirev CGN 12.Krivak 1eeEe 
13.Krivak II FFG 14.Krivak III WPGF 
1540 vava 16.Kashin DDG 
17.Sovremennyy DDG 18. Yurka vse 
19.Kynda CG 20 .Udaley bec 


Select the name that matches the photo,"q" to quit or "h" 
for vhnelp. «q. 


KKKK KKK KKK KEK KKK KK KARA K KARR Next Screen KKK KKK KKK KK KKK KAKA KAKK 


You identified 2 ship(s) on the first try. Thevsnees 
were: 
Slava Grisha I/71I/i11f Bak 


You identified 3 ship(s) on the second trys The Smuoes 
were: 


Krivak III WPGF Jiang Hust t FE Kaman PTG 


You identified 0 ship(s) on the third trys@ The ships: 
were: 


You did not identify the fellowing sShipitcr 
Kara CG 


You appeared to guess on the first look at 1 ship(s). 
Type any letter key to continue. c. 


KRKERKKKKEK RRKKK KKK KR RK KX KK Next Screen KEK K KKK KKK KKK KRKAKRKKAKEKKK 


Please enter an 8 character filename for your summary. 
The filename must begin with a letter and contain only 
letters and numbers. Remember this filename to 
retrieve your summary at your next user session. mysum. 
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Your filename is mysum 


Your summary has been saved to the file mysum. 
Remember this filename to review this summary. 


Type any letter key to continue. c. 
Kea KKK KKK KKK KKK KKK KKK KKK Next Screen KEKE KKK KKK KKK KKK KKK KK 


Ship Recognition Main Menu 


Ship recognition test 
Review a specific photo 
View a summary 

Olle 


m WN FH 


mmeer l.,Z2.,3. or 4.2. 


KREKEKKEKKKEKKEKKKKK KK KKK KK KKK Next Sereen KaREKKKKEKKKKKKEKKKKE KEKE 


Enter the number of the photo you wish to review followed by 
emeeriod. 15. 


KEEKKKKKKKK KK KKK KK KKK KKK Next Screen KEK KKKKK KK KKK KKK KK KKK 
The name of the ship in photo number 15 is Sovremennyy DDG 


This is a list of the descriptive features of a Sovremennyy 
DDG: 


bridge (radome atop bridge) 

gun(spheroid enclosed gun mount foward and aft) 
ssm(canted launchers under bridge wings) 

Stack (Single stack amidship) 

helo(pad and telescoping hangar aft of stack) 
radar(air Surveillance radar atop mack) 
Identify each feature in the photo. 


Remember the name of the ship is Sovremennyy DDG 


Type any letter key to continue. c. 
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KAR KKK KKK KKK KKK KKK KKK KKK Next Senararaiel KKK K KKK KKK KKK KKK KK KKKE 


Ship Recognition Main Menu 


Ship recogni t lOnmmtese 

. Review a specific photo 
View a summary 

@)bIoL c 


i Co IN 


Enter 124572.;3. Or 433 


What is the name of your summary file? 


mysum. 
KKEKKK KK KKK KKK K KEK KKK KKK KX Next Screen KEKKKKKE KKK KKK KKK KKK KEAK 


You identified 2 ship(s) on the first try. the sae 
were: 
Slava Grisha I/11/111 eee. 


You identified 3 ship(s) on the second try] Thewenipae 
were: 
Krivak III WPGF Jiang Hu If FE Kaman PTG 


You identified 0 ship(s) on the third try.” The shop 
were: 


You did not adentifty the following weno. 
Kara CG 


You appeared to guess on the first look at 1 ships 


Type any letter key to continue. c. 


KERR K KK AR KKK KARR KK KKK RK KS Next S@raecn KKKKAK KKK KKK KKKKAAKKKAKSEK 


Ship Recognition Main Menu 


Ship recogni trons eest 
Review a specific photo 
View a summary 

Opolae 


H GI NO 


Bnwe Geet OG a ae 
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APPENDIX B - USER’S MANUAL 


A. USING THE PROGRAM 

The ship recognition tutor iS implemented in the Arity 
Prolog programming language. It requires approximately 50K 
of disk space and 512K of RAM memory. Once you have loaded 
Arity Prolog, and started the interpreter, you will be 
presented with a prompt: 

= 
Type "[loadfile]." to begin. REMEMBER: PROLOG REQUIRES A 
PERIOD (".") FOLLOWING ALL INPUT. 

PS readtile]. 
The tutoring system will take Several minutes to load, 


please be patient. When the system responds with: 


yes 


o- 


mype “gotutor." 


Be OOLULOr. 


meueWill be presented with menus from this point. To quit 
the system you may type "q." at the ship choice menu or 


mee” 6cAL CULO G6Umain menu. 


ost 


1. Prolog Reminders 
1. All input must be followed bySaspericoa ( . = 


2. Letter entries, such as "q" or "h", must be made 
in lower case. 


3. Typing extra characters after the period and 
before the carriage return will cause the system 
to fail. No summary will be made and the program 
will halt. You may type "gotutor.”" at the ?- 
prompt to restart the program. 

B. MODIFICATIONS AND ADDITIONS 

The expert module of the ship recognition tutor is 
eaSily modifiable, in order to add or delete ships, or to 
change identifying features of the ships already in the 
system. When modifying the system several things need to 


DeviKepE, a omina. 


1. Before making any changes be sure to make backup 
copies of all files. 


2. Whenever a change is made to the ships.ari file, 
changes must also be made to the tdescrip.ari file 
and vice versa. 


3. Descriptive features, ship names, and predicate names 
must match exactly whenever they are used. 


The following is an example of the changes that need to 
be made when adding a ship to the system: 
1. Add a rule predicate: 


rule(ship id(’Grisha £/21/i0t thw ee 
[mast 1(’heavy pylon mast with latticed 
extensions’), 
mast 1 loc(’on top of the brrageway 
stack (’ located aft’), 
rocket launcher(’RBU launcher on a raised mid 
Secr ion dale 


eZ 


Weemeceducabesmames such as stack, which are already 
defined when possible. The same goes for feature 
je-scmiperens Slcmmac,™ Focated afl’. Remember they 
Shoulda be character—Lor—Character the same as they 
appear anywhere else in the program. 

Racism PNOnOmcoOnes predicate: 


Shipmelorc comes, Grisha ©/TT/IJ1IT FFL’). 


Be sure the photo number you assign is not already 
assigned and that the ship name is typed exactly as 
it appears in the rule predicate and the 
Sgmianies predicate, The numbers must be 
sequential. 
Add the name of the ship to the ship names predicate. 
The ship name should be character-for-character the 
same aS it appears elsewhere. 
Sheomncwes( meur Shap cholces are: ’, 
[Ptwsestam. CG’) ’Kresta II CG’,’ Jiangdong FF’, 
ean sfePr Wwaiang Hu’ Il FF’ ,’Godavari FF’, 
Semeuspom Li7/lit FFL’ ,’ Kaman PTG’,’Kara CG’, 
Wome eevee » Kicovy CGN’,"Krivak I FEG’, 
aoatvakel i SEG ee Krivak Ill WPGEF’,’Slava’, 
wasmun DDG," sevremennyy DDG’, ’ Yurka MSF’, 
’"Kynda CG’,’Udaloy DDG’])). 
The order of the ship names, as they appear in this 
predicate, is the order of ship names in the choices 
menu. 
Increase the number of total photos in the predicate 


EQcai DNOEOS. 


Ectal pnotos (20) . 
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5. Modify or add a descriptors predicaeemee nse a 


feature which is added in the rule predicate. 


descripeors (seaerrw 
‘Select the best description of the stack 
StLTUCEN Tew 
[’located aft’, 


‘large, 
1 SOs 


square’, 
wide with lip on trailing edge’, 


‘4 in symmetry to the mast, cantedwecur = 
‘4 stacks in pairs amidships’, 

‘oval shaped stack (YURKED TO THE SIDE)’, 
‘twin stacks amucenmnto:, 

‘single stack amidshie |) 


For example, the predicate stack was added in the 


rule predicate above and the description was 


(LOC ACE 
added to 
there is 
contains 


made. 


aft’. The exact same descriptive phrase is 
the descriptors predicate for stack. If 
already a descriptors predicate which 


the correct phrase, no change needs to be 


Steps 1-4 concern changes made to the file ships.ari, 


step 5 concerns changes made to the file tdescrip.ari. 
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APPENDIX C - SOURCE CODE 


Peetariver.ari 47 


fas file Contains the tutoring portion of the ship recog- 
nition tutor. It uses the files tmenu.ari, tdescrip.ari, 
ships.ari, utilities.ari and intro.ari. The file is loaded 
by loadfile.ari. Two executable files, summary.exe and 
getstime.exe, are also needed. They were created using 
fieDpOo Pascal. 


No modifications to this file are necessary, in order to 
update or add to the database. 


/* Initializing variables */ 


mest try (0,{[]). 
eeeond try(0,{]). 
moma try (0, [)) . 
misses (0,[]). 

num guesses (0). 
number seen(0). 


Seeucor :- 
abolish(stop marker,0), 
abolish(quit system,0), 
intro screen, 
Shell(cls), 
Spe rtences level, 
choose option. 


Smoose Option :- quit system, !. 
choose option :- main _ menu, start_tutor, choose option. 


/* Direct the system to the user chosen option. */ 


eatt tutor :—- system option(test), 
abolish(viewed photo,1), 
assert(viewed photo(0)), 
initialize seed, 
Stalag test, abolish(stop marker,0), l.. 


SS 


start tutor ;:- system option (pnoto e717 
shell(cls), blines(10), 
write(’Enter the number of the photo you wish to 

review ’), 
write (’followed by a period. ’), 
read (Number), 
ship photo comb (Number, Correct janswe re 
rule(ship | id(Coreeer _answer), Correct _answer list), 
shell (cls¥, blanes(2 
nl, write(’The name of the ship in photo number ’), 
write (Number), write(’ is ’), 
write (Correct answer) sues sane, 
write(’This is a list of the descriptive features 
Or “ay ay, 

write (Correct answer), write |: 7 egies 
prettyprint1 (Correct_ answer list), nl, nl, 
write (’Identify each featune sme. photo. > 
nl,write(’Remember the name of the ship is ’ 
write (Correct answer), nl, nee 
write(’Type any letter key to continue. ’), 
read (Anykey);, nil). 

start tutor :- system_option(view_summary), 
Shell(summary), nl, nl, nl, 
write(’Type any letter key to continue. ’), 
read(Anykey), nl, !. 

Start tutor => SyStemeepe oni quit); 
assert (quit system). 


nie 


y 


/* Begin the ship recognition test. */ 
start test :;- stop marker, conelusten ae 


start test :- number seen (Number), 
EOraL _photos (X), 
Number >= X, conclusion, !. 


Statice Seis. 
Clear ivaws, 
Shell(cls), blines(5), 
get photo _ num, 
photo num(Number), 
write(’Please look at photo number ’), 
write (Number), nl, 
ship names (Header,Names), 
write(Header), nl, 
shipmenu(Names),nl, nl, 
write(’Select the name that matches the photo,’), 
write (’"q" to quit or “hi foreseen n 
shell (getsthetime), consult (timefile), time(A,B), 
retract (tame (Awe) 
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ship ask which(Names), nl, 
shell(getsthetime), consult (timefile), time(C,D), 
retract (time(C,D)), 

Eamecomp (A,B,C, D, 1otal), 

assert (time to look(Total)), 

shite fact (Student _answer), 
abolish(ship_ faeteyl), 

check answer (Student. answer, Number) , 
retract (number seen(N)), 

Dies | Nt ete 

assert (number seen(N1)), 

Start CCSU. 


/* Randomly select the photos to be presented. */ 


Mentiialize seed :— shell (getsthetime), 
consult (timefile), retract (time (A,B)), 
assert (seed(B)). 


feu Photo num ;- 
total photos(R), 
Checkenumoer(hi,N)y !. 


eaeck number(R,N) :- 
not (viewed photo(N)), 
assert (viewed photo(N)), 
doce Gee let OmmumM (Ni) 7 ! 


emeck number(R,N) :- 
random(R,N1), 
GheceeaumMoem (iN i)a)  : 


maendom(R,N) :- 
retract (seed(S)), 
N is (S mod R) + 1, 
NewSeed is (25 * S§ + 1) mod 1096, 
asserta (seed (NewSeed)), !. 


/x Check the student’s first answer and respond appropri- 
ately. */ 


Pieckeaiswer ( quit’,Photo num) :- assert (stop marker), !. 


eoeek answer ( help’,Photo num) :- 
ship photo _comb (Photo num, Coreece answer), 
rule (ship _ id (Correct _answer),Correct _ answer list), 
Sheliiels), blines (4), 
nl, write(’The name of the correct ship is ’), 


write (Correct answer), nl, nl, 


ot 


write(’This is a list of the descriptive features 
of a a 

write (Correct answer), writ@( 7 eae 

prettyprintil (Correct answer 11st )Geaee see 

write(’Identify each feature in the photo.’) 

nl,write(’Remember the name of the ship is ’ 

write (Correct answer) 7 )n haem 

maintain score (4, Conrecenagowoigm 

write(’Type any letter key to continue. ’), 

read(Anykey), nl, !. 


ni 


)y 


check answer (Student answer, Photo num) <- 
~ ship photo _comb(Photo_ num, Student answer), 
shell(cls), blines (4), 
write(’Very good! You have chosen the correct 
ship.” )| sal aes, 
write (’Photo number “), write (Pheteuaune 
write(’ is the ’), 
write (Student answer), al, au, 
write (’Here 1s a reminder of the key identifying 
features.’), nl, 
ig tiller rule (Stom eceucene _answer),R), 
haces jejguegte 4 (Js), roll, 
numtries(X), 
maintain score (X,Student_answer), 
write(’Type any letter to continue. ’), 
read(Anykey), nl, nl, !. 


/x Beginner guess */ 


check answer (Student “answer, Perec nan me 

user _level (beginner), timesto Wook (<), 

ee Ce Jaa 

ship photo comb (Photo num, Correct answer), 

maintain guesses, 

write(’That answer is incorrect.’), nl, 

write ("The ’), write (Studentmanswews, 

write(’ is not the correct ship. miele 

rule(ship id(Correct answer),Correct answen )isme 

compare (Correct answer list,[],Features not present, 

Features missed,Feature details ditt) aus 

Tale 

review BEGatures (Corner answer,Correct answer lise 
Student answer,Feature detaailemcaimne 
Features missed, Features not present), Ie 
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/x Intermediate user guess */ 


check answer (Student_answer, Photo num) :- 
user _level (intermediate), it aitie BEC UaGK (x) ; 
xX < 10, 
ship photo comb (Photo_num,Correct_answer), 
maintain guesses, 
mike ( hioteanmewer 1s imcorrect.’), nl, 
write(’The ’), write(Student answer), 
Were eG Mimo tne eOorrect Ship.’), nil, nl, 
Eule(stPromlcicorbece answer),COrrect answer mas), 
compare (Correct _ answer list, [], Features not present, 
Features _missed, Feature edetar ls Gaite),, ig lly 
rr 
Pouleweseodwures (COrEeck answer, COrrect answer Sis, 
Ceucdene onswer,Feature details acliiiaws 
Features missed,Features not present), !. 
/x Non-guess */ 


e@eck answer(Sstudent answer,Photo num) :- 
ship photo comb(Photo num,Correct answer), 
write(’That anSwer iS incorrect.’), nl, 
write(’The ’), write(Student answer), 
Witte ( “—ssemmoOt Ehe correct sSship.’), nl, nl, 
rule(ship id(Student answer),Student answer list), 
rule(ship_ He COeGect _answer),Correct | Sniswerelist), 
Sleokeotcomnecumanower list, Student answer malt, 
Features not present, Features _missed, 
Feature _details _ linea) 
1g Bo aE ai 
fev renered UbeCoteorrEece valiswer,COrrect answer list, 
pEuceneeancwer,reature details diff, 
ZecmuGccmltmocea,Meacunres mol present), !. 


/* Begin review of features after incorrect response */ 


Bmoview features (Correct answer,Correct answer Ese, 
Student answer, Feature mectEalls ebicg, Features _missed, 
Features not present) :- stop review, !. 


mewiew features (Correct answer,Correct answer list, 
student answer,Feature details diff,Features missed, 
BocialLesSmi@mmereSente) = Stop marker, !. 


review Beceem Correct sancwer,COLrrect answer list, 
Student answer, Feature melee camo diff,Features mmessed, 
Features not present) :- 
numtries (X), Xs), 
review Ga iess Oteache gars details diff,Student answer, 
Soerecteancwer list), ni, 
review misses(Features missed,Student answer), nl, 


So 


review not present (Features Neti preeo ome 
Student _answer), 
ask ship (Correct answer, Student_answer,New answer), 
rule (ship id(New_answer),New_answer list), 
compare (Correct answer list,New_answer list, 
Features not _present2, Features _missed2, 
Feature Geman geebe 22 he, 
review features (Correct _ answer, COrrecematowe™ _ lise 
New_ answer, eature deeaims Meeeecc” 
Features “missed2, Features _not _PEESenEZ), TE 
review features (Correct __ answer, Correct answer Sing 
Student answer,Feature Get awse dia, Features mi sseer 
Features not present) :- 
still no answer (Correct answer,Correct answer list), 
lane! 


review _diffs([],Student_answer,Correct answer list) :- !. 


review diffs ([Detail|Features],Student answer, 
Correct _answer list) :- 
Detail =.. [Detail feature,Detail descrip], 
Check detail =.. [Detail | feature, Other _descrip], 
fact (Cheek _detail), 
review diffs (Features, Student answer, 
Correct answer list), !. 


review diffs ( (Detail | Features], Studememata. =, 
COrEeCE sells W cise) Bates 
Detail =.. [Detail feature,Detail descrip], 
Check detail =.. [Detail feature, Other _descripiy 
incorrect factmemeck _detail), 
review diffs (Features, Student answer, 
COrreGr mali swe tame: citg) ly aama 


review diffs ([Detail|Features],Student_ answer, 
COrrece answer loc. 

Detail =.. [Detail feature, Detariide sc aly 
descriptors (Detail _ feature, Listheader, Descrip lise 
shell (cls), blinests)— 
write (Listheader),nl, 
wEitemenu(DesGui pel tsty mee, 
write(’Make your selection: ’), 
descrip ask which(Descrip list, Item), 
Selected item =.. [Detail fédieime eens 
member (Selected | item,Correct answer Ds) y 
assertz (fact (Selected __ Temes 
nl write thew ae write (Detail feature), 
HeLEG description you chose: ) jaan 
write(Item), nl, write(’is not present ona ’), 
write (Student answer), wraee (la. . eae 
write (‘but it 1s present on the Correct ship. oe 
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ha 

mieewette(@ryae any letter to continue. ”), 

read(Anyletter), 

review diffs (Features, Student_answer, 
Correct _answer ALi a hee 


review diffs([Detail|Features],Student_answer, 
Correct answer MDES Cte 
Pip awrite( Rhateiemnoumthe best description’), nl, 
review diffs ([Detail|Features], Student_answer, 
Comucectaanswer list), nil, @- 
review misses([],Student_answer) :- ! 


review mmasses ({Detail|Features), Student answer) :- 
Dewan —. (beta) teature, Detail descrip], 
Check detail =.. [Detail feature, Other descrip], 
fact (Check detail), 
review misses (Features, Student_answer), !. 


review misses ([Detail|Features],Student_answer) :- 
Detail =.. [Detail feature,Detail descrip], 
Check detail =.. [Detail feature,Other descrip], 
Mie ourecee race (neck detail), 
review misses (Features,Student answer), !. 


review misses ([Detail|Features],Student_answer) :- 
Detail =.. [Detail feature, We teceiea mdeSerip], 
photo _num(Number), Zcherll(cis)y) blines (5) , 
write(’Is the ’), write(Detail feature), 
Vite ( wither hewrollowing desGription:’), nl, 
WiakbewWcedlimaesCmin), D1, 
write(’present on photo number ’), write(Number), 
Wrigeer( on. ). nil, 
Mmm waneet siisele y.' £Or yes or “"n." for no. ’), 
read (Answer), 
interp miss answer (Answer,Detail feature, 

Student answer), a” 

assertz (fact (Detail)), 
review misses (Features, Student answer), nl, !. 


interp miss answer (Answer,Detail feature,Student_answer) :- 
name (Answer, [121]), nl, !. 


interp miss answer (Answer,Detail feature,Student answer) :- 
name (Answer, [110]), . . 
nl, nl, write(’The ’), write(Detail feature), 
write(’ is present in the photo. Look carefully to 
TASMEITY it.” ); 
nl, write(’This feature is not present ona ’), 
write (Student answer), 
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nl, nl, write(’Type any letter Comeenernmean 
read (Anyletter), 
nL ae 


interp miss answer (Answer,Detail feature, Student_answer) 
nl, write(’ Your input 1S not a 4y) seems 
Please reenter: ’), 
read (New entry), 
interp miss answer (New_entry,Detail feature, 
SEUdenE anSswetm ya 


review not present ([],Studenthanswer i 


review not present ([Detail|Features],Student answer) =- 
Detail =.. (Detail feature, Detailideseriae 
Check detail =.. [Detail feature, Otherrdesc aie 
fact (Check a detamky 
review not present (Features, SCudentmanowor) ae 


review not present ([{[Detail|Features] Studentgans Jer 
Detail =.. (Detail feature,Detail descrip], 
Check detail =.. [Detail feature,Other descrip], 
incorrect face (Check detamiay? 
review not present (Features, Student answer) ye 


review not present ((Detail |Features], Student vancyom) ara 
Detail =.. [Detail feature,Detail descrip], 
photo num(Number), shell (cls) eoiines 
write(’Is the ’), write(Detail feature), 
write(’ with the following description. joe 
write(Detail descrip), nl, 
write (’present on photo number ’), write(Number), 
WEate (7.7) 
19 1 Oe olla 
write (’Enter 
read (Answer), 
interp not _present_answer (Answer,Detail feature, 

SEUCENEVaniswene, 

assertz (incorrect face (Detainam 
review _ not present (Features,Student_ answer), nl, 


y." for yes or “nn.” Shor enemas 


interp not present answer (Answer, Detaulpseaeume 
S LUCENE sails wes es 
name (Answer, [121]), 
nl, write(’The ’), write(Detail feature), 
write(’ is not present in the proee: 
Please look more carefully.’), 

nl, nl, write(’It iS present cnegrnen s. 
write (Student answer), 
Write(?.. ), ml, ene 
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write(’Type any letter to continue. ’”), 
redatAny letter mi, !. 


interp not _ present_answer (Answer,Detail_ feature, 
Student answer) :- 
name (Answer, [110]), 
nl, write@sihe “), write (Detail feature), 
write(’ is present on the ’), 
write (Student answer), 
Valet OU Mote Ol Ehe Correct ship.’), 
nl, nl, write(’Type any letter to continue. ’), 
read(Anyletter), nl, !. 


interp not _present_answer (Answer,Detail feature, 
Sipuge lr clic we ia) ) 1s > 
WMiwwite( oO V,ouEmmmeut 1S mot a Ny" or a "n". 
Please reenter: ’), 
read(New entry), 
interp not present answer (New_entry,Detail feature, 
SIG WO Me el eiete |) 7 Ue 


/* Request user to try again to identify the correct 
Sip. */ 


ask ship(Correct_answer, Student _answer,New_answer) :- 
shell(cls), blines(5), 
write(’You have identified the following 
beatzuress’ ), nil, nl, 
Lista (faGt)joond., 
photo num(Number), 
write(’Try again to identify photo number ’), 
write (Number), nl, 
write(’Remember, it is not the ’), 
Write (Student answer), nl, 
ship names (Header,Names), 
write (Header), nl, 
shipmenu (Names) ,nl, 
write(’Select the name that matches the photo,’), 
Viste enCemeerolrt "OL "NH mitietehelo. °°), 
ship ask _which(Names), nl, 
ship fact (New answer), 
abolish(ship fact,1), 
numtries (X), 
abolish(numtries,1), 
Nias Xx tL, 
assert (numtries(X1)), 
check answer2 (New answer,Number), !. 


SS: 


/* Check users response for second and third tries at iden 
tifticataoneecy, 


check _answer2(‘’quit’,Photo num) :- assert (Stop marker); = 


check answer2 ( help 7 Photon Un) ite. 
Ship eNonom comb (Photo num, CODTrecevanswe mie 
rule(ship id(Correct answer),Correct answer list), 
shell(cls), blines(5), 
nl, write(’The name of the correct ship is ’), 
write (Correct answer), nl, ni, 
write(’This is a list of the descriptive features 

OF as] 

write (Correct anSwer), write(”< jeune 
prettyprintl (Correct_ answer list), nl, nl, 
write (’Identify each feature iene photo. 
nl,write(’Remember the name of the ship is ’ 
write (Correct answer), ale Ach 
maintain score(4,Correct answer), 
write(’Type any letter key to continue. ’), 
read (Anykey), 
assert (Stop review); ni, !- 


, ni, 
)y 


check answer2 (New _answer,Photo num) :- 

ship Ephotor comb (Photo num,New answer), 

shell (els) ) blamesns) 

write(’Very good! You have chosen the correct 
ship.’ ), mlsene 

write (’Photo number ’), write(Photo num), 

write(’ is the ’), 

write (New answer), nl, 

write(’Here 1S a reminder of the key identifying 
features.’ ) nl 

nl, rule(ship id(New_answer),R), prettyprint lee 

nl. numt ries (., 

maintain score (X,New_ answer), 

write(’Type any letter to continue. ’), 

read(Anykey), nl, nl, 

assert (stop review), !. 


check _answer2 (New_answer, Photo num) :- 
ship photo_comb(Photo_num, Correct_answer), 
write(’That answer is incorrect.’), 
write(’ The ’), write(New_ answer), 
write(’ is not the correct ship. 3 oe 
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VroAGeen third incorrect response. */ 


still no answer (Correct answer,Correct_answer_ list) 
Stop marker, !. 


still no answer (Correct _answer,Correct_answer_ list) :- 
Stop review, !. 


Pee emomancwer (COEECce answer,Correct answer list) :- 
shell(cls), blines (5), 
write(’The name of the correct ship is ’), 
write (Correct answer), nl, ni, 
write(’This is a list of the descriptive features 

Of a. ge 

write (Correct anSwer), write(’:’), nl, nl, 
PucEE YOrRINt i (@egmrece answer list), nl, nl, 
write(’Identify each feature in the photo.’), nl, 
nl, write(’Remember the name of the ship is the ’), 
Witte cOnmect sdweweljim ml, Int, 
maintain score (4,Correct answer), 
Wgheol UvoetGwuem=G CONLInue, ’), 
read(Anykey), nl, !. 


/* Keep summary of student’s responses. */ 


Maintain score (X, Student answer) :- 
a= ji. 
PPecee em ny, Tries)y 
Nivas No + ws 
sUSOMwelh (ELISE ies aie 
append (Tries, [Student_answer],Tries2), 
acSccrENtinstrtsy (Nl, Iries2)), !. 


maintain score (X,Student answer) :- 
a a 
second try(N,Tries), 
Nilesicme et 1 
abolish(second try,2), 
append(Tries, [Student answer],Tries2), 
assert (Second try(Nl1,Tries2)), !. 


maintain score (X, Student answer) :- 
== 3, 
timmresery (N, Tries), 
Nl is N+ 1, 
abou rciijEehi rd try) , 
append (Tries, [Student answer],Tries2), 
assert (third try(N1,Tries2)), !. 
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maintain score(xX, Student fancue a. 
misses(N,Tries), 
Nie is Nee 
abolish(misses,2), 
append (Tries, [Student_answer],Tries2), 
assert (misses(Nl,Tries2)), !. 


maintain QueSSses 23> Rumguesscaicy 
Xl as xX e519 
abolish (num_guesses,1), 
assert (num _guesses(xXt) ya 


NetnibadmeguessSe sus ams.s 


/* Final summary of student’s responses. */ 


conclusion :—- shell(cls)> blinesiae 

first try (A, Giwsi eas re, 

write(’You identified ’), write(A), 

write(’ ship(s) on the first try 

write(’ The ship(s) were:’), nl, 

PEPNGes (Eis eras) ies 

SECONGLERY (8, -cconcmeaucc 

write(’You identified ’), write(B), 

write(’ ship(s) on the second try.’), 

write(’ The ship(s) were:’), nl, 

Prints (Secondmtsics ean, 

ERaredstry (C, She cdieees), 

write(’ You identified ’), writerer 

write(’ ship(s) on the thiradgtny 37 

write(’ The ship(s) were:’), nl, 

print S( Third Grresiye at, 

misses (D,Missed ships), 

write(’You did not identify the following 
ship (Us)is2 )> Sale 

print 3(Missed ships), nl, 

num guesses (G), 

write(’You appeared to guess on the first look 
ale 

write(G), write(’ Ship(s)2")) nla 

write(’Type any letter key to continue. ’), 

read(Anykey), nl, nl, 

Wee Omit 1 eee 


/*x Write student’s summary to file. */ 
Wiehe Ct Og Gl Fea 
shell(cls), blines(10), 


write(’Please enter an 8 character filename 
for your Summary.) ) ja 
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write(’The filename must begin with a letter 
ama conecarmmeomly ~), nil, 

write(’letters and numbers. Remember this 
filename to ’), nl, 

write(’retrieve your Summary at your next user 
session. ‘), 

read (Filename), 

nl, nl, write(’Your filename is ’), 

write(Filename), 

tell (Filename), 

Ral eeie lesew (Vy, Jd aise see aak ey i 101 

Vite YoumIcdentarved ’), write (A), 

Voleew spas) om tne first try.’), 

write(’ The ship(s) were:’), nl, 

Penne hace etbes ) , riley 

second try(B,Second tries), 

write(’You identified ’), write(B), 

write(’ ship(s) on the second try.’), 

write(’ The ship(s) were:’), nl, 

print 3(Second tries), nl, 

Pheaceeryic, Tamed tries), 

write(’ You identified ’), write(C), 

Wietee« wship ts) on the third try.’), 

write(’ The ship(s) were:’), nl, 

peat (anird jerres), ni, 

it SES ID) Male eee! Sleyersyyr 

write(’ You did not identify the following 
Ship Sess 1, 

PrillemenhMessedm shapes), nl, 

HUMP ouesses(G);, 

write(’You appeared to guess on the first 
Toek sabe: ) 

WEelretGyy write(’ Ship(s).’), nl, nl, nl, 

feels) aime? ni, 

write(’Your summary has been saved to the file ’), 

write(Filename), write(’.’), nl, 

write(’Remember this filename to review this 
Summary. Joye nt, mi, 

write(’Type any letter key to continue. ’), 

read(Anykey), nl, nl, !. 


/* Clear memory for the next photo. */ 
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clear Vdiesm, — 
abolish(photo_num,1), 
abolish (shap face, as, 
abolishiftact.1)e 
abolish (inconrecemace, a 
abolish(time to look,1), 
abolish(stop review,0), 
abolish(fact;, i 
abolish (1neormec terraces 
abolish(numtries,1l), 
assert (numEriecss))) = 
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/* Comparer.ari */ 


/* This program does the comparison between the two lists. 
Three lists are generated consisting of features in the 
first list which are not in the second, features in the 
second list which are not in the first, and features whose 
predicates are the same in both lists, but whose arguments 
are different. */ 


/*Any duplicate items in the two lists are deleted from 
Both prior to further comparisons. */ 


compare (Answer, Student,Features not present,Features missed, 
exelieibiets wolsieretsL Ils cliligig)) B= 
delete duplicates (Answer, Student, Answer2, 
Student2), 
compared (Answer2, Student2, Features not present, 
Features missed,Feature details diff). 


/* Delete duplicates deletes duplicate terms from Answer 
and Student. | 


femece duplicates | imatucdent, [],Student) . 


delete duplicates ([A|Answer], Student, Answer3, Student3) :- 
member (A, Student), 
delete (A, Student, Student2), 
delete duplicates (Answer, Student2,Answer3, 
Stugent3s),!. 


delete duplicates ([Al|Answer],Student, [A|Answer3], 
peugent >) >) .= 


delete duplicates (Answer, Student, Answer3, 
SEUdentE sae. 


/* Base condition */ 


eemeare?({),[)-(],[J,1[]). 


/* Answer haS more terms than the Student model. */ 


comparez ([A|Answer],[],Features not present, 
[A|Features missed],Feature details diff) :- 
compare2 (Answer, [],Features not present, 
Features missed,Feature details diff),!. 
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/*x Student model has more terms than the Answer. */ 


compare2([), (S|Student), [(S|Features nNeotipue ena 
Features missed,Feature details GEE) 2 
~ compare2 ([], Student, Features NCEE eeSe mer, 
Features eitlcced, peat inae _details SGLEE) | 


/x The Answer has terms with different arguments than the 
Student model. */ 


compared (Answer, Student, Features Noraprecem=, 
Features missed, ([S|Feature detavlsoiaiemiyme es 
match terms (Answer, Student,A,S), 
delete (A,Answer,Answer2), 
delete (S,Student, Student2), 
compare2 (Answer2, StudentZ, Features not presemem 
Features missed, Peaturemdetanum ome ierea mm 


/* The Answer has terms not in the Student model, but the 
Student model is not empty. */ 


comparez (Answer, Student, Features not puccey er 
[Term|Features missed], Feature detarl suc me 
find a term(Answer, Student,Term), 
delete (Term, Answer,AnswerZ2), 
compared (Answer2, Student, Features not presen 
Features missed,Feature details diff),!. 


/x* The Student model has terms not in the Answer, but the 
Answer is not empty. */ 


compared (Answer, Student, |Term|Features not) prec ciimar 
Features missed,Feature details dint. 
Stings _term(Answer, Student, Term), 
delete (Term, Student, Student2), 
compare2 (Answer, Student2, Features not present, 
Features missed, Feature detalleiata jas 


/x Match_terms finds the terms in The Answer which match 
the terms in the Student model except that the arguments 
are different. It returns the terms that match. */ 


match terms (({AlAnswer],Student,A,35) := 
A =... "Pred, tad 
S =.. (Pred, asiy 
member (S, Suudenn 
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/* Find a term finds terms in Answer which are not in the 
Student model. Used when Student model is not empty. Will 
not find terms with mismatched arguments. */ 


/* Example: a predicate with no arguments */ 


find a term([Term|Answer],Student,Term) :- 
i Terie ete red | 
S =.. [Pred], 
not (member (S, Student)). 


/* Example: any one argument predicate */ 


mndea term((Term|Answer),Student,Term) :- 
Term =.. [Pred,TA], 
Sas Perea, fs |% 
not (member (S,Student)). 


7* Find s term finds terms in the Student model which are 
not in the Answer. Used when the Answer is not empty. 
Will not find terms with mismatched arguments. */ 


eemd Ss term(Answer, [Term|Student],Term) :- 
Term =.. [Pred], 
A =.. [Pred], 
not (member (A, AnSwer)). 


find s term(Answer, [Term|Student],Term) :- 
Term =.. [Pred,TS], 
A =.. [Pred,TA], 
not (member (A, AnSwer)). 


gpl 


je Emenee ie? 


/* This file contains the menus for the tutor program */ 


writemenu([]) :- !. 
writemenu (Descrip list) :- length (Deseraemieeies 
writemenu2 (Descrip list,N),!. 


writemenuZ2([],N) :- !. 
writemenu2([I|Descrip list2],N) :- 

length (Descrip TuseZ N2e 

N3 1S N - N2, 

tab(3), bspacewne 

write (N3), write (=o 

Write (1). sae 

writemenu2 (Descrip list2,N). 


shipmenu(()) sq Je 
shipmenu (Descrip list) <:—- length (Descripmiise se 
shipmenuZ (Deserrp “last, N) jee 


Sshapmeny2 <i) N) ose 
shipmenuZ (iene) Nh eee 
length (DesCcripeliste Az 7 
N3 is N - N2, 
tab(3), bspace(N3), 
Write (N3), writet 
Wieden Ld) ose, 
ShHiIpmenud (Desc ripe ste Zan, ee 
shipmenuZiiii, 12 | pesecrto ol .se7 7) 
length (Descrip list2,N2), 
N4 is N - N2, 
N3 is N4 - l, 
tab(3), bspace(N3), 
WLI1CEKN3S) 0 Wreeeot. 3. 2 
write(Il1), 
name (ll,L), lengenihy aay, 
Spaces 2s 25 — in 
tab(Spaces), bspace(N4), 
write (N4), write(’.’), 
Wrice-(1Z is) ine 
shipmenu2 (Descrip 1ist2,N). 


ship ask which (Names) ia. 
read (Shipname), create ship fact (Shipname,Names), 
Tele ies 


a2 


create ship fact(Shipname,Names) :- 
home (Shipname,tiigi), assert (ship ftace(’ quit’)), !. 


create ship fact (Shipname,Names) :- 
name (Shipname, [104]), assert(ship fact(’help’)), !. 


create ship fact (Shipname,Names) :- 
total photos (XxX), 
integer (Shipname), 
Shipname > 0, 
Shipname =< X, 
item(Shipname,Names,I), 
assebe: (Srp weaect (iy), :. 


create ship fact(Shipname,Names) :- nl, nl, 
total photos (xX), 
write(’Your input is not within the range of 
won aly 
write(X), write(’.’), write(’ Please reenter: ’), 
read(New entry), 
create ship fact (New_entry,Names), !. 


@eeserip ask which(Descrip list,I) :- 
read(Description), 
mena description (Description,Descrip list,I1). 


moma description (Description,Descrip list,I) :- 
length (Descrip list,N), - 
integer (Description), 
Description > 0, 
Description =< N, 
item(Description,Descrip list,I), !. 


pence Aescription (Description,Descrip list,I) :- nl, nl, 
length(Descrip list,N), 7 
write(’Your input is not within the range of 
li ema a 
write(N), write(’.’), write(’ Please reenter: ’), 
read(New entry), find description (New entry,De- 
erap list,1I), !. 7 7 


ieom(l, (X|L],X). 
meemiN, (X|LJ,21) :+- N > 1, N2 is N - 1, item(N2,L,I). 
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main menu :- abolish(system_option,1), 
Shell(cls), 
blines (10), tabwiaor 
write(’Ship Recognition Main Menu’), nl, nl, 


Gab(l/); 
babii], 
tan (ig). 
tab(17),; 


write(’ 1. Ship recognition test’), nl, 
write(’ 2. Review a specific photo’), nl, 
write(’ 3. View a summary’), nl, 
write(’ 4. Quit’), BDbilamesta 


write (’ Enter 1.,2.73. on 1 
read(Choice), check _entry (Choice, 4,main menu), 
assert opr lon ehoreas blines (3). 


assert option (1) 
assert option (2) 
assert option (3) 
assert option (4) 


assert option( ). 


experience level 


:- assert (system option (test) ). 

:- assert (system_option (photo review)). 
ome assert (system_ option (view_ summary) ). 
i assert (system_ Option (quran 


- abolish(user level,1), 


eahiicia 
blines (10) ,. tabiZa). 
write(’Level of experience’), nl, tab(25), 


Write (">> [ssaecn =a eee oe, 

nl, tab(25), write(’ 1. Beginner’), nl, 
tab(25), write(’ 2. Intermediate’), nl, 
bab (25) ,Swreilrwe( 3. Expert’), blameskere 
write(’Enter 1.,2.,060. 3.5008 


read(Choice), 
check entry (Choice, 376 sperlcneemlcy cus 
assert level (Choice), blines(3). 


asseree evesen) 
asSenu, ley eig(Z) 
asserenlevel as) 
assere level. 


;- assert (usernl level (begmanemw ae 
:- assert (user level (intermediate) ). 
s- assert(user level (expere ae 


check entry (Choice, Numment ries, Pred) amas 


Cheree. > 


0, 


Choice =< Num _entries, !. 


check_entry (Choice,Num entries,Pred) :- Pred, !. 
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/* ships.ari */ 


iiissnile contains the database for the ship recognition 
tutor. All ships in the database are contained in the rule 
Predicates. The ship names predicate is used by when 
creating the ship choices menu. 


When adding ships to the database tdescrip.ari must also be 
updated. Be sure to update the total photos, ship names 
and 

Pimo DNOeO, com> predicates also. 


/* Number of photos in the data base. */ 
ged! photos (20) . 


/* Information for tmenu.ari, should exactly match the 
names in the predicate rule and ship phot comb. */ 


Ship names(’Your ship choices are: ’, 
[’Kresta I CG’,’Kresta II CG’,’Jiangdong FF’, 
Taraneh lt ee oe Jian Hu DPEE’,’Godavari FF’, 
‘Grisha I/II/III FFL’,’Kaman PTG’,’Kara CG’, 
‘Kiev CVHG’,’Kirov CGN’,’Krivak I FFG’, 
‘Krivak II FFG’,’Krivak III WPGF’,’Slava’ 
‘Kashin DDG’,’Sovremennyy DDG’,’Yurka MSF’, 
UandaseGc -sUdaloy DDG’ ]). 


/* Assigns photo numbers to ship names. Be sure to number 
photos correctly. */ 


at Photo comb(1,’ Jiang Hu I FF’). 
ship photo comb(2,’Jiangdong FF’). 
ship photo _ Mecnkn>, Koesta | CG’). 

ship Ponotom Mecomot4, Kresta Il CG’ )- 
Baap photwe comb (67 Jitarig Hu PD FF’). 
ship pphotom Mceomnb (5, ’ Godavari FR. 
meomphoto comb(9,’Grisha I/ID/IIIPFL’). 
ship photo comb(7,’Kaman PTG’). 

ship photo comb(8,’Kara CG’). 

Sip Eohoto © comb (14,’Kiev CVHG’). 

ship Benoto. Como gly2, tairoyv CGN) 2 

BaD | Pohoto. meomo(13,’ Keivak I rer). 
Sep photo BeonbiMre Krivak ITeFFG’ ) . 
ship photo comb(11,’Krivak III WPGF’). 
ship photo comb(15,’Sovremennyy DDG’). 
ship photo comb(16,’Udaloy DDG’). 

mem Photo comb(17,’Yurka MSF’). 

ship photo comb(18,’Kynda CG’). 


ies) 


ship photo combo(i9,” Kashi ier ee oe 
ship phote coms(20;, Slava ae 
/* ships expert system */ 


rule(ship id(’Godavari FF’), 
[mast 2(’two masts’), 
foremast (’solid tower foremast’), 
mainmast (‘smaller pylon mainmast’), 
ssm(’4 SSM launchers forward of the 
superstructure’), 
sam(’single launcher’), 
helo(’hanger and pad aft’)]). 
rule (ship id(’Grisha 17 il/ Poi an es 
[mast 1(’heavy pylon mast with latticea 
extensions’), 
mast 1 loc{’ On Op Of Ehesbemdga an 
stack (’ located aft’), 
rocket_launcher(’RBU launcher on a sdaaiseciai 
SECE TON) a. 
rule (ship 1d(’ Jr1angdong FE), 
[Mast 2( two masses 7, 
foremast (‘latticed tripod foremast’), 
foremast loc(’ abut the stperst uceutoer 
aftermast (’quadruped mast’), 
aftermast loc({ atop the afttuyaeerneauce om 
sam(’ launcher forward of bridge’), 
sam 2(’an identical pair of SAM Jaunenemeeate em 
gun(’ single mount oy, 
bridge (’globular fire control om top’ jap 
rule (Ship 1€d() dlang Hv ieee, 
[mast 1° latticed tretpod mast oe 
stack (’large, square’), 
ssm(’twin launchers forward and aft of stack’), 
bridge (’ forward placed’)]). 
rule (ship 24("Jrang Hu Pl eae 
[mast l1(’latticed tripod imasmer, 
stack (’large, square’), 
ssm(’twin launchers forward and aft of stack’), 
ssm 2(°a SSM 1 launcher tonwara ar, 
bridge (’ forward placed’), 
helo(’helo pad aft’)]). 
ruULe (Ship tat Kaman tay jy 
[mast l(’ large radome atepemace a: 
gun(’forward of superstructure’), 
gun Z2{ aft of deckhoeuce ae 
ssm(’located between superstructure and 
deckhouse’), 
superstructure (’enclosed, streamlined with separated 


deckhouse’)]}). 
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rule(ship id(’Kara CG’), 
[mast 1(’large pyramid mast, supports TOP SAIL 
maar”); 
stack(’large, square’), 
helo(’helo pad aft’), 
ssm(’canted launchers below bridge wings’)]). 
eule (ship, 1d(’Kresta I CG’), 
ifactec Ewe emcast sae 
foremast (‘large obelisk type foremast’), 
aftermast (’smaller pyramid aftermast’), 
radar(’air surveillance radar atop mack’), 
helo(’hangar and pad aft’), 
ssm(’/horizontal launchers under bridge wings’)]). 
rule(ship id(’Kresta II CG’), 
imeasteet twoenasts ), 
foremast (‘large obelisk type foremast’), 
aftermast (’smaller pyramid aftermast’), 
radar(’air surveillance radar atop mack’), 
top sail(’TOP SAIL radar’), 
Meno ratcedenelom=pad aft”), 
ssm(’canted launchers below bridge wings’)]). 
rule(ship id(’Kiev CVHG’), 
[fight deck (’angled flight deck’), 
superstructure (‘tiered Superstructure’), 
other features(’looks like cruiser in profile’)]). 
me (ship id(’Kirov CGN’), 
[mast _1(’large mack amidship’), 
radar (’atop mack’), 
top sail(’TOP SAIL radar’), 
superstructure (’superstructure amidship with large 
mack), 
forecastle(’long, slightly stepped, sharply raked 
bow’)]). 
fe (Ship id(*’Krivak I FFG’), 
[iasiceZi( EwO Masts’ ), 
masts (’latticed’), 
superstructure (’ superstructure with masts’), 
ssm(’4 SSM launchers on bow’), 
stack (’short, wide with lip on trailing edge’), 
gun(’gunmounts flat and square’)]). 
mee (Ship ad(°Krivak II FFG’), 
[mast 2(*two masts’), 
mMases (’ latticed’), 
Superstructure(’superstructure with masts’), 
ssm(’4 SSM launchers on bow’), 
Stack(’short, wide with lip on trailing edge’), 
gun(’gunmounts rounded with fence between’)]). 
rule(ship id(’Krivak III WPGF’), 
[mast 2(’two masts’), 
masts (’latticed’), 
superstructure (’ superstructure with masts’), 


ie) 


stack (’ short, wide with lip on travling edge ae 
gun (’enclosed gunmount on bow’), 
helo(’hangar and pad aft’)]). 
rule(ship id(’ Kashin Dee). 
[mast _1(’single oil derrick mast’), 
stack (’4 in symmetry to the mast, canted out’), 
sam(’2 SAM launchers, fore and aft’), 
gun(’2 enclosed gun mounts, fore and aft’)]). 
rule(ship i1d( Kynda ee a 
[mast 2(’two masts’), 
masts (‘pyramid masts’), 
ssm(’two (HOT DOG PACKS), 1 forward, 1 aft’), 
other features ( Mast -stack=mastsstaciaaus = 
rule(ship id(’Udaloy DDG’), 
[mast 2(’two masts’), 
masts (’tripod mast preceeds each set of stacks’), 
stack (’ four stacks in pairs amidship’), 
helo(’twin helo hangar and raised helo pad aft’), 
ssm(’canted launchers below bridge wings’), 
gun(’2 enclosed gun mounts forward’)]}). 
rule (shipird(7 YuukasMeee, 
[stack (’oval shaped stack (YURKED TO THE SIDBE)’), 
mast sl latwreea ae 
radar(’ fire control radar atop mack’), 
gun(’ gun mount forwara and vate. pe 
rule (shipsac( Slava jy 
[mast 2(’two masts’), 
foremast (‘large pyramid mast structure’), 
aftermast (’smaller radar mast’), 
stack(’twin stacks amidship’), 
radar(’Top Dome on after deckhouse’), 
helo(’ hangar and pad aft’), 
missiles (’16 SS-N-12 Sandbox missiles paired 
FOorwara  ) loan: 
rule(ship id(’Sovremennyy DDG’), 
[bridge (’radome atop bridge’), 
gun(’spheroid enclosed gun mount foward and aft’), 
ssm(’canted launchers under bridge wings’), 
stack(’single stack amidship’), 
helo(’pad and telescoping hangar aft of stack’), 
radar(’air surveillance radar atop mack’)]). 
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fee CaeSecrmip.ari */ 


moe iniseetle Contains the descriptive information for each 
feature. The information exactly matches the features 
descriptions used in the rule(ship id) predicates. This 
file is used by to create the feature description menus.*/ 


/* When adding ships to the database be sure to update this 
file also. ais 


aescriptors (mast 2, 
‘Does the ship have: ’, 
[’two masts’]). 


descriptors(masts, 
‘Select the best description of the masts. ’, 
{[‘latticed’, 
‘pyramid masts’, 
‘tripod mast preceeds each set of stacks’]). 


descriptors (foremast, 
‘Select the best description of the foremast.’, 
[’solid tower foremast’, 
‘latticed tripod foremast abuts superstructure’, 
‘large obelisk type foremast’, 
‘large pyramid mast structure’ ]). 


Peseriptors(foremast loc, 
‘Does the foremast: ’, 
[‘’abut the superstructure?’ ]). 


descriptors (aftermast, 
‘Select the best description of the aftermast.’, 
[’ quadruped mast’, 
‘smaller pyramid aftermast’, 
‘smaller radar aftermast’])). 


Peecraptors(attermast loc, 
‘Is the aftermast located: ’, 
[’atop the aft deckhouse’]}). 


descriptors (mainmast, 


‘Does the ship have a: ’, 
[’smaller pylon mainmast’]). 


US 


descriptors (mast _l, 
‘Select the best description of thewmaces = 
[‘heavy pylon mast with latticed extensions’, 
“latticed tripedimases 
‘large radome atop mast’, 
‘large pyramid mast, Supports TOP SAIL radar’, 
‘large mack amidship with TOP SAIL radar’, 
‘single oil derrick mast’, 
‘latt iced ipa. 


descriptors (mast_1 loc, 
‘Is the mast: ’, 
[’on t0Op Of the burdge aa 


descriptors (ssm, 

’Select the best description of the SSM 
launchers(s).’, 

(’4 SSM launchers forward of the superstructure’, 
‘twin launchers forward and aft of stack’, 
‘located between superstructure and deckhouse’, 
’4 SSM launchers located on bow’, 
‘canted launchers below bridge wings’, 
‘horizontal launchers under bridge wings’, 
“two (HOT DOG PACKS), 1 forward aeeeoee ser 


JeSeCrIPEGrS  (SSinac, 
‘Is there: ’, 
[’a SSM launcher forward’ ]). 


Gescripeers (sam; 
‘Select the best description of the SAM 
Launcher (sje 
[’single launcher’, 
‘launcher forward of bridge, identical pair aft’, 
‘two SAM launchers, fore and aft’]). 


descriptors (sam 2, 
“1S Ehnere san: 7. 
[‘’identical pair of SAM launchers aft’)])). 


descriptors (rocket Jaunenem 
‘Does the ship have a:’, 
[’RBU launcher on a raised mid section’)])). 


descriptors (missiles, 


‘Does the ship have:’, 
[716 SS-N-12 Sandbox missiles paired fouvaca sae 
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descriptors (gun, 
‘Select the best description of the gun mounts.’, 
[’single mount’, 
‘forward of superstructure, aft of deckhouse’, 
‘gunmounts flat and square’, 
‘gunmounts rounded with fence between’, 
‘enclosed gunmount on bow’, 
‘two enclosed gun mounts, fore and aft’, 
‘two enclosed gun mounts forward’, 
‘spheroid enclosed gun mount forward and aft’]). 


descriptors(gun 2, 
‘Is there a second gun :’, 
[‘aft of deckhouse’]). 


descriptors (radar, 
‘Select the best description of the radar 
features. ’, 
[’air surveillance radar atop mack’, 
‘Top Dome on after deckhouse’, 
‘fire control radar atop mack’]). 


descriptors (top sail, 
‘Does the ship have: ’, 
(Pater SAT radar’ ]). 


descriptors (stack, 

‘Select the best description of the stack 
Srecuckure. , 

[ teecaced ait’, 
‘large, square’, 
‘short, wide with lip on trailing edge’, 
‘4 in symmetry to the mast, canted out’, 
‘4 stacks in pairs amidships’, 
‘oval shaped stack (YURKED TO THE SIDE)’, 
‘twin stacks amidship’, 
‘single stack amidship’]). 


descriptors (bridge, 
’Select the best description of the bridge 
Sieamecture. “, 
Pele suikar Tirewcontrol on top’, 
"forward placed’, 
’radome atop bridge’]). 
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descriptors (superstructure, 
‘Select the best description of the 
superstructures 
[’enclosed, streamlined with separated deckhouse’, 
‘tiered superstructure’, 
‘superstructure amidship with large mack’, 
‘superstructure with masts’]). 


descriptors (£lighemcdees, 
‘Does the ship have a3’, 
[‘angeled flight deck’]). 


descriptors (helo, 
‘Select the best description of the onboard helo 
structures. | 
(‘hangar and pad aft’, 
“helo pad aft’, 
‘raised helo pad aft’, 
‘twin helo hangar and raised helo pad aft’, 
‘pad and telescoping hangar aft of stack’]). 


descriptors (forecastle, 
"Does the ship have a:’, 
[‘long, slightly stepped, sharply raked bow’]). 


GeSerIpeons Cale upecdeubes, 
‘Some other features are:’, 
(‘looks like a cruiser in profile’, 
’mast-stack-mast-stack’]). 
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yx Gameeeo.ari * / 


iaeromcereen :- Shellicls), blines(2), tab(17), 
Miite (’ SSSSS HH HH II PPPPPPP’), nl, 

ime (l/), 

write (’ SS SS HH HH II PP PP’), 
mer cab(l/), 

write (’ Ss HH HH II PP PP’), 
mee, tab(l7), 

write (’ So laigl HH II PP PP’), 
fail, tab (17) ’ 

write (’ SSO00 HHHHHHHHH II PPPPPPP’), nl, 
jal {l/7), 

write (’ So HA Piet Pes nl, 
matt l 7), 

write (’ Sis, fel JcUeimetest  Jf)2 4) etl ie 
malo (17/), 

write (’ So SS) deals! Sel SRG 2E SNES | go ia ie 
ao {l/), 

write (’ SSS Oe HH HH If PP’), nl, 

blines (2); tab(1Z), 

write (’ RRRRRRR BEEBEEBEEBE CECCCE SeCCCCC 
@WeoooO’), nl, tab(12), 

write(’RR Re ae CC ce CE Ce, -C0O 
fe \,enl, tabi(12), 

write (’RR RR EE Oe Ce ace CC OO 
fey, nl, tab(12), 

write(’RR RR EE ae EC OO 
we), ni, tab(12), 

write (’ RRRRRRR Ps es Ce Ce OO 
ee), nl, tab(12), 

write(’RR RR BE Ce Cc OO 
fe), nl, tabil1l2), 

write(’RR RR EE CC COME Ce Ce O60 
oe), nl, tab(12), 

write(’RR RR EE CE GEe- VEE Ce O00 
2), nl, tab(12), 

write(’RR RRS Soe CECEcc CECCCEe 


wOO000"), nil, 


blines (2), 
Shreiiatels), 


shell (pause), 
blines(5), 


write(’Ship recognition training is required for 
many Naval ’), 

write(’personnel. ’), nl, 

write(’It is taught by Intelligence personnel using 


slides, 


")y 


Wetec ( Each Cards *’), nl, 
write(’and other drill methods.’), 


blines (3), 
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write(’This ship recognition tutor is designed to 
help youw 4, 

write(’improve your ’), nl, 

write (’proficiency in ship recognition. =) 7ou wee 
be provided ’), 

write (’with a’) 

write(’list of ships from which to identify the 
photo specified.’), 

write(’ The method’), nl, 

write(’of tutoring is based on your level of 
experience. The ’), 

write(’system also ’), nl, 

write(’provides you with a means of viewing a 
SsuMmMary Of yours a 

write(’last session. ’), nl, 

write(’You may also review specific photos.’), 

blines(3)7, 

write(’PROLOG REMINDER: ’), nl, nil, 

write (’ALL ENTRIES MUST BE FOLLOWED BY A 
PERLOD (la) oe 

blines (2), shell (pause). 


Veadtvilesari 7 


write (’Please wait.’), nl. 
hel 

[tdriver]. 

Write’ Still: loading jr 
el 

[tintro,tmenu]}. 

Write (Still Loading ).: 
igulle 

[ships,tdescrip]. 
Weilue (* Stall loading). 
(utilities, comparer]. 
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ao ereye utility predicates. */ 


BeolismaihsA) =—- £UunctEOr(T,,A), retractall(T). 
mepractalil(xX) :=— retract (X), fail. 
meeractali(X) :— retract ((X :- Y)), fail. 


mommeactall( ). 


fengen([], 0). 
Menmgehn({X],1). 
Zeoagtinix!L)],N) := Length(L,Nl1), N is Nl + 1. 


append([],L,L). 
pe@eemea((X|L],L2, {X|L3]) :- append(L,L2,L3). 


Goncatenate (S1,82,S) :- name(S1,AS1), name(S2,AS2), 
append (AS1,AS2,AS), name(S,AS). 


blines(0) :- !. 
blines(N) :- nl, Nl is N - 1, blines(Nl). 


memace (xX) =—- X < 10, write(’ ’). 
bspace (X). 


mmecomp (A,B,C,D,Total) :- 
Min is C-A, 
Sec is D-B, 
Motal 1s Min * 60 + Sec. 


member (X, [X|L]). 


member (X, [Y|L]) :- member(X,L). 

delete (X, eye). 

delete (X, [X|L]),M) :- !, delete(X,L,M). 
eewece(X,(YlL),{Y|IM]) :- not X=Y, delete(X,L,M). 
meettyprint ([]). 

meeeeyprinte([Y{L)) :- prettyprintl(Y), prettyprint (L). 
meecttyprintl ([]). 

Peeteryprintl({X|L]) :- write(xX), nl, prettyprintl1(L). 
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print 3 eye 
PEINE. 347 Y, 2 ele eee 
write(X), name(X,X1), length(X1,A), 
Al is 25 = Avvreabiais 
write(Y), name(Y,Y1), length(Y1,B), 
Bl is 25 - B, tab(Bl), 
write (Z), Mi geri (iL) 
Prine 3 (47 y ieleee 
write(X), name(X,X1), length(X1,A), 
Al is 25 - A, tab(Al), 
Wrlte(Y)) a, paneer 
print 3 (xi 
write(X), nl, estes Cee 
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/* Pascal executable files */ 
Program Summary (input, output); 


(* This program reads in the user session summary and 
prints it to the screen. *) 


type 
Siuatimeo0 == String| 8i0)] ; 
Serimgzo = String [251 ; 
var 
Pene menor rings 0; 
Filename : String25; 
Data. weext; 
begin 
Writeln(’What is the name of your summary file?’); 
Readin (Filename) ; 
Assign (Data,Filename) ; 
Reset (Data) ; 
While not EOF (Data) do 
begin 
Readin (Data, Line); 
Writeln (Line); 
ena: 
Close (Data); 
end. 


program getstime (input, output); 
uses dos; 


var 
Hour, Minm-soec, Hun: word; 
data:text; 
begin 
Get Time (Hour,Min, Sec,Hun) ; 
asSign(data,’timefile.ari’); 
reset (data) ; 
write (data,’time(’); 
write (data,Min) ; 
Wiltetdata,’,’); 
write (data, Sec); 
Wietwe (dara, ’)* ) + 
close (data); 
end. 
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